### R code from vignette source 'MeasurementError.cor.Rnw'

###################################################
### code chunk number 1: MeasurementError.cor.Rnw:41-47
###################################################
library(MeasurementError.cor)
exp <- matrix(abs(rnorm(100,1000,20)),ncol=10)
se <- matrix(abs(rnorm(100,50,5)),ncol=10)
cor.me.vector(exp[1,],se[1,],exp[2,],se[2,])
cor.me.matrix(exp,se)