cn = Rle(c(3,4,5,6),rep(3,4))
loh = Rle(c(2,4,6,8,10,12),rep(2,6))
start = c(9:11,4:9,15:17)
end = start
locs = GRanges(IRanges(start=start,end=end),seqnames=c(rep("chr1",3),rep("chr2",6),rep("chr3",3)))
segPairTable(cn,loh,locs)
Run the code above in your browser using DataLab