## Not run:
# doubleChannel <- sim.doubleChannel(12346)
# snm.obj <- snm(doubleChannel$raw.data, doubleChannel$bio.var,
# doubleChannel$adj.var, doubleChannel$int.var)
# ks.test(snm.obj$pval[doubleChannel$true.nulls],"punif")
# ## End(Not run)
Run the code above in your browser using DataLab