m=4;
n=10;
k=8;
t=(n-k)/2;
nw=1;
x=[0 1 2 3 4 5 6 7];
msgw=gf(x,4);
c=rsenc(msgw,n,k);
noise=(1+randint(nw,n,2^m-1)).*randerr(nw,n,t);
cnoisy=c+noise;
[dc,nerrs,corrcode]=rsdec(cnoisy,n,k);
isequal(dc,msgw)&isequal(corrcode,c);
nerrs;