function R_scrambled=R_Scrambler(R_decit,dewalshed)
% initialise a vector for holding the Scrambled data symbols stream
R_scrambled1=zeros([1,384]);
for i=1:384
R_scrambled1(i)=mod((R_decit(i)+dewalshed(i)),2);
end
R_scrambled=R_scrambled1;