DAT<- data.frame( obs = round(runif(50)), frcs = runif(50))
A<- measurement.error(DAT$obs, DAT$frcs, CI = TRUE)
A
### Finley Data
measurement.error(c(28, 23, 72, 2680)) ## assuming perfect observation,
Run the code above in your browser using DataLab