# NOT RUN {
## generate some autooctoploid data
a <- sim.autoMarkers(8,c(0.7,0.2,0.09,0.01))
## print markers and plot segratios
print(a)
plot(a$seg.ratios) # plot the segregation ratios directly
plot(a) # plot the simAutoMarkers object
## add some missing values and plot all histograms
plot(addMissing(a,0.2)$seg.ratios, type="all")
# }
Run the code above in your browser using DataLab