bpsk root raised cosine

fs = 4*57e3;
dataRate = 1187.5;
rolloff = 1;
samplesPerSymbol = fs/dataRate;
psfilter = rcosdesign(rolloff, 10, samplesPerSymbol);
R = filtfilt(psfilter, 1, BPSKsignal);

figure,
plot(90*BPSKsignal), hold on
plot(R), legend('before filter', 'after filter');