A0=R(:,1:2:end);
for i=1:17
A1=A0(i,:);
p=sort(unique(A1));
for j=1:length(p)
Rank0(A1==p(j))=j;
end
Rank(i,:)=Rank0;
end
RD5=mean(Rank);
A0=R(:,1:2:end);
for i=1:17
A1=A0(i,:);
p=sort(unique(A1));
for j=1:length(p)
Rank0(A1==p(j))=j;
end
Rank(i,:)=Rank0;
end
RD5=mean(Rank);