# Retrieve system files
extdata.dir <- system.file("extdata", package="RIPSeeker")
bamFiles <- list.files(extdata.dir, ".bam$", recursive=TRUE, full.names=TRUE)
bamFiles <- grep("PRC2", bamFiles, value=TRUE)
alignGal <- getAlignGal(bamFiles[1], reverseComplement=TRUE, genomeBuild="mm9")
alignGR <- as(alignGal, "GRanges")
alignGRList <- GRangesList(as.list(split(alignGR, seqnames(alignGR))))
binSize <- 1e5 # use a large fixed bin size for demo only
binGR <- binCount(alignGRList$chrX, binSize)
# test on GRanges object
nbhGR <- nbh(binGR, 2, runViterbi=TRUE)
# test on integer object
nbhList <- nbh(values(binGR)$count, 2, runViterbi=TRUE)
Run the code above in your browser using DataLab