# load the methylation data
data(methylationDataList)
# the regions where to compute the DMRs
regions <- GRanges(seqnames = Rle("Chr3"), ranges = IRanges(1,1E5))
# compute the DMRs in CG context with noise_filter method
DMRsNoiseFilterCG <- computeDMRs(methylationDataList[["WT"]],
methylationDataList[["met1-3"]], regions = regions,
context = "CG", method = "noise_filter",
windowSize = 100, kernelFunction = "triangular",
test = "score", pValueThreshold = 0.01,
minCytosinesCount = 4, minProportionDifference = 0.4,
minGap = 200, minSize = 50, minReadsPerCytosine = 4,
cores = 1)
## Not run:
# # compute the DMRs in CG context with neighbourhood method
# DMRsNeighbourhoodCG <- computeDMRs(methylationDataList[["WT"]],
# methylationDataList[["met1-3"]], regions = regions,
# context = "CG", method = "neighbourhood",
# test = "score", pValueThreshold = 0.01,
# minCytosinesCount = 4, minProportionDifference = 0.4,
# minGap = 200, minSize = 50, minReadsPerCytosine = 4,
# cores = 1)
#
# # compute the DMRs in CG context with bins method
# DMRsBinsCG <- computeDMRs(methylationDataList[["WT"]],
# methylationDataList[["met1-3"]], regions = regions,
# context = "CG", method = "bins", binSize = 100,
# test = "score", pValueThreshold = 0.01, minCytosinesCount = 4,
# minProportionDifference = 0.4, minGap = 200, minSize = 50,
# minReadsPerCytosine = 4, cores = 1)
#
# ## End(Not run)
Run the code above in your browser using DataLab