# if the data have been already loaded to R,
# skip the first five lines of the code:
data(info)
data(pre)
data(post)
data(AMR.raw)
if (FALSE) {
data(SMR.raw)
SMR.clean <- correct.meas(info.data = info,
pre.data = pre,
meas.data = SMR.raw,
method = "pre.test")
}
AMR.clean <- correct.meas(info.data = info,
post.data = post,
meas.data = AMR.raw,
method = "post.test")
Run the code above in your browser using DataLab