if (FALSE) {
pat = data.frame(chrom = c(1,4,5,5,10,10), start = c(100,50,20,80,10,80),
end = c(120,100,25,100,70,120))
mat = data.frame(chrom = c(2,4,5,5,10), start = c(80,50,10,80,50),
end = c(120,100,35,100,120))
karyoDiploid(pat, mat)
}
Run the code above in your browser using DataLab