## Not run:
# singleChannel <- sim.singleChannel(12345)
# snm.obj <- snm(singleChannel$raw.data,
# singleChannel$bio.var,
# singleChannel$adj.var,
# singleChannel$int.var, num.iter=10)
# summary(snm.obj)
# ## End(Not run)
Run the code above in your browser using DataLab