p.table <- data.frame(name = c("probeA", "probeB", "probeC", "probeC", "probeC"),
strand = c('+', '-', '+', '-', '-'),
chr = c("chr1", "chr2", "chr1", "chr2", "chr2"),
start = c(20, 276, 101, 101, 151),
end = c(44, 300, 125, 125, 175))
r.table <- data.frame(name = c("gene1", "gene2", "gene3"),
chr = c("chr1", "chr2", "chr2"),
strand = c('+', '-', '+'),
start = c(20, 500, 75),
end = c(200, 800, 400))
pdf("tmp.pdf", height = 6, width = 14)
checkProbes(r.table, p.table, lwd = 4, col = "blue")
dev.off()
Run the code above in your browser using DataLab