## Not run:
# set.seed(1)
# x=rnorm(100,0,1)
# y=x+rnorm(100,0,.5)
# x=x+rnorm(100,0,.5)
# fit=Deming(x,y, boot=TRUE)
# summary(fit)
# plot(x,y)
# abline(fit)
# # compare with lm fit
# fit.1=lm(y~x, data.frame(x,y))
# summary(fit.1)
# abline(fit.1, col=2)
# ## End(Not run)
Run the code above in your browser using DataLab