# load the methylation data
data(methylationDataList)
# the region where to compute the profile
region <- GRanges(seqnames = Rle("Chr3"), ranges = IRanges(1,1E6))
# compute low resolution profile in 20 Kb windows
lowResProfileWTCHH <- computeMethylationProfile(methylationDataList[["WT"]],
region, windowSize = 20000, context = "CHH")
## Not run:
# # compute low resolution profile in 10 Kb windows
# lowResProfileWTCG <- computeMethylationProfile(methylationDataList[["WT"]],
# region, windowSize = 10000, context = "CG")
#
# lowResProfileMet13CG <- computeMethylationProfile(
# methylationDataList[["met1-3"]], region,
# windowSize = 10000, context = "CG")
# ## End(Not run)
Run the code above in your browser using DataLab