# NOT RUN {
#Sample data: 200 subjects rated their weight twice.
data <- cbind(sample(50:100,200,replace=TRUE), sample(50:100,200,replace=TRUE))
#Standard error of measurement
sem(data=data, type="mse", conf.level=0.95)
# }
Run the code above in your browser using DataLab