## Not run:
# 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
# ## TODO: Kind of a forced example
# design <- model.matrix(~0 + BS.cancer.ex.fit$Type)
# colnames(design) <- gsub("BS\\.cancer\\.ex\\.fit\\$Type", "",
# colnames(design))
# contrasts <- makeContrasts(
# cancer_vs_normal = cancer - normal,
# levels = design
# )
# BS.stat <- BSmooth.fstat(BS.cancer.ex.fit[keepLoci.ex,],
# design,
# contrasts)
# BS.stat
# }
# ## End(Not run)
Run the code above in your browser using DataLab