Nothing
`plot.simAutoMarkers` <-
function(x, main=deparse(substitute(x)),
xlab="Segregation ratio", ...) {
## description: plot segregation ratios of
## Arguments:
## x: object of class simAutoMarkers
## 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.ratio, main=main,...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.