## Not run:
# require(bsseq)
# require(bsseqData)
# data(BS.cancer.ex)
#
# ## takea smallportionof data and test
# BSobj <- BS.cancer.ex[140000:150000,]
# dmlTest <- DMLtest(BSobj, group1=c("C1", "C2", "C3"), group2=c("N1","N2","N3"),
# smoothing=TRUE, smoothing.span=500)
#
# ## call DMR based on test results
# dmrs <- callDMR(dmlTest)
# head(dmrs)
#
# ## or one can specify a threshold for difference in methylation level
# dmrs2 <- callDMR(dmlTest, delta=0.2)
# head(dmrs2)
#
# ## visualize one DMR
# showOneDMR(dmrs[1,], BSobj)
# ## End(Not run)
Run the code above in your browser using DataLab