This function makes a segmentation (GRanges) based on one region of one chromosome (seqnames).
oneRegionSegment(x, seqlength)a segmentation (GRanges object) with the region of interest designated as state 2, and the rest of the chromosome as state 1.
library(GenomicRanges)
library(GenomeInfoDb)
x <- GRanges("chr1", IRanges(10e6+1,width=1e6))
genome(x) <- "hg19"
seg <- oneRegionSegment(x)