## Not run:
# singleChannel <- sim.singleChannel(12345)
# snm.obj <- snm(singleChannel$raw.data,
# singleChannel$bio.var,
# singleChannel$adj.var[,-6],
# singleChannel$int.var, num.iter=10)
# snm.fit = fitted(snm.obj)
# res1 = snm.obj$norm.dat - snm.fit$fit1
# snm.svd = fast.svd(res1)
# cor(snm.svd$v[,1], singleChannel$adj.var[,6])
# plot(snm.svd$v[,1], singleChannel$adj.var[,6])
# ## End(Not run)
Run the code above in your browser using DataLab