x=size(R); zero=zeros(x);