R/plot.simAutoCross.R

In polySegratio: Simulate and Test Marker Dosage for Dominant Markers in Autopolyploids

`plot.simAutoCross` <-
function(x, main=deparse(substitute(x)),
                                xlab="Segregation ratio", ...) {

  ## description: plot segregation ratios of simAutoCross

  ## Arguments:
  ## x: object of class simAutoCross
  ## main: title for plot
  ## xlab: label for x axis

  main # hmm is this for Splus
##  plot(hist(rowMeans(x$markers,na.rm = TRUE)),
##       main=paste("Segregation ratios for",main), xlab=xlab, ...)
  plot(x$seg.ratios, ...)
}