data(DCLHb);
HemocueAve=apply(DCLHb[,c("HEMOCUE1","HEMOCUE2")],1,mean);
SigmaAve=apply(DCLHb[,c("SIGMA1","SIGMA2")],1,mean);
agr=agreement(y=HemocueAve,x=SigmaAve,V_label="Hemacue",H_label="Sigma",min=0,max=2000,by=250,CCC_a=0.9775,CP_a=0.9,TDI_a=150,error="const",target="random",dec=3,alpha=0.05);
plot(agr);
Run the code above in your browser using DataLab