###################################################
### chunk number 1: load.library
###################################################
#line 196 "vignettes/snm/inst/doc/snm.Rnw"
library(snm)


###################################################
### chunk number 2: load.simulated.example.1
###################################################
#line 255 "vignettes/snm/inst/doc/snm.Rnw"
singleChannel <- sim.singleChannel(12345)
str(singleChannel)


###################################################
### chunk number 3: normalize.simulated.example.1
###################################################
#line 271 "vignettes/snm/inst/doc/snm.Rnw"
snm.obj1 <- snm(singleChannel$raw.data,
				singleChannel$bio.var,
				singleChannel$adj.var,
			        singleChannel$int.var)


###################################################
### chunk number 4: check.pvalues.1
###################################################
#line 280 "vignettes/snm/inst/doc/snm.Rnw"
ks.test(snm.obj1$pval[singleChannel$true.nulls],"punif")