## Not run: # NOTE: These take a very long time to run.
# library(BSgenome.Hsapiens.UCSC.hg19)
# bins <- createBins(BSgenome.Hsapiens.UCSC.hg19, 15)
# bins$mappability <- calculateMappability(bins,
# bigWigFile='/path/to/wgEncodeCrgMapabilityAlign50mer.bigWig',
# bigWigAverageOverBed='/path/to/bigWigAverageOverBed')
# bins$blacklist <- calculateBlacklist(bins,
# bedFiles=c('/path/to/wgEncodeDacMapabilityConsensusExcludable.bed',
# '/path/to/wgEncodeDukeMapabilityRegionsExcludable.bed'))
# bins$residual <- iterateResiduals(readCountsG1K)
# ## End(Not run)
Run the code above in your browser using DataLab