#The object has been generated using the following commands:
##### STEP1: create DBA object:
library('MMDiffBamSubset')
oldwd <- setwd(system.file("extdata", package="MMDiffBamSubset"))
Cfp1 <- dba(sampleSheet="Cfp1.csv", minOverlap=3,
config = data.frame(RunParallel=FALSE))
##### STEP2: compute histograms from bam files
bin.length <- 50
Peaks <- dba.peakset(Cfp1,bRetrieve=TRUE)
Peaks <- Peaks[1:1000]
Cfp1Profiles <- getPeakProfiles(Cfp1,Peaks,bin.length=bin.length,
save.files=FALSE,run.parallel=FALSE)
setwd(oldwd)
Run the code above in your browser using DataLab