if(require(BSgenome.Hsapiens.UCSC.hg18)){
windows <- genomeBlocks(Hsapiens, chrs="chr21", width=100, spacing=100)
cpgdens <- cpgDensityCalc(windows, organism=Hsapiens,
w.function="linear", window=700)
co <- matrix(rnbinom(length(windows), mu=10, size=2), ncol=1)
sI <- matrix(rnbinom(2*length(windows), mu=5, size=2), ncol=2)
bm <- BayMethList(windows=windows, control=co,
sampleInterest=sI, cpgDens=cpgdens)
# mask out unannotated high copy number regions
# see Pickrell et al. (2011), Bioinformatics 27: 2144-2146.
data(hcRegions)
bm <- maskOut(bm, hcRegions)
}
Run the code above in your browser using DataLab