preProcessed <- sim.preProcessed(12347)
snm.obj <- snm(preProcessed$raw.data,
preProcessed$bio.var,
preProcessed$adj.var, rm.adj=TRUE)
ks.test(snm.obj$pval[preProcessed$true.nulls],"punif")
Run the code above in your browser using DataLab