powered by
cpgdensity(subject, chr, pos, windowSize = 500, sequence = "CG")
if (require(BSgenome.Hsapiens.UCSC.hg18)){ chr <- c("chr1", "chr1", "chr2") pos <- c(100000, 100500, 100000) cpgd <- cpgdensity(Hsapiens, chr=chr, pos=pos, windowSize = 500) cpgd }
Run the code above in your browser using DataLab