## Not run:
# singleChannel <- sim.singleChannel(12345)
# snm.obj <- snm(singleChannel$raw.data,
# singleChannel$bio.var,
# singleChannel$adj.var,
# singleChannel$int.var, num.iter=10)
# plot(snm.obj, col.by=snm.obj$bio.var) #color by biological group
# plot(snm.obj, col.by=snm.obj$adj.var[,-6]) #color by batch
# ## End(Not run)
Run the code above in your browser using DataLab