seg.L<-cbind('temp',1,matrix(c(1,10,11,100,101,120),ncol=2,byrow=TRUE))
seg.B<-cbind('temp',1,matrix(c(1,11,12,60,61,120),ncol=2,byrow=TRUE))
map.chr<-1:130
MergeBreakPointsByChr(1,'temp',seg.B,seg.L,map.chr)
Run the code above in your browser using DataLab