data(bpres)
# Reliability of method 1
newdat=bpres[(bpres$METODE==1),]
est=icc(newdat,"DIA","ID")
est
summary(est)
# Reliability of method 2
newdat=bpres[(bpres$METODE==2),]
est=icc(newdat,"DIA","ID")
est
summary(est)
Run the code above in your browser using DataLab