# NOT RUN {
library(qtl)
data(hyper)
marker <- sample(markernames(hyper), 1)
# }
# NOT RUN {
iplotPXG(hyper, marker)
# different colors
iplotPXG(hyper, marker, chartOpts=list(pointcolor=c("black", "gray")))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab