## read in target region BED file
target.file <- system.file("extdata", "targets.bed", package="exomeCopy")
target.df <- read.delim(target.file, header=FALSE,
col.names=c("seqname","start","end"))
## create GRanges object with 5 ranges over 2 sequences
target <- GRanges(seqname=target.df$seqname,
IRanges(start=target.df$start,end=target.df$end))
## subdivide into 7 smaller genomic ranges
target.sub <- subdivideGRanges(target)
Run the code above in your browser using DataLab