if(require(bsseqData)) {
data(keepLoci.ex)
data(BS.cancer.ex.fit)
BS.cancer.ex.fit <- updateObject(BS.cancer.ex.fit)
## Remember to subset the BSseq object, see vignette for explanation
BS.tstat <- BSmooth.tstat(BS.cancer.ex.fit[keepLoci.ex,],
group1 = c("C1", "C2", "C3"),
group2 = c("N1", "N2", "N3"),
estimate.var = "group2")
BS.tstat
## This object is also stored as BS.cancer.ex.tstat in the
## bsseqData package
}
Run the code above in your browser using DataLab