data(fowlbones)
pvals <- holm(sinUG(fowlbones$corr,fowlbones$n))
## Not run: plotUGpvalues(pvals)
## Not run: plotUGpvalues(pvals, legend=FALSE)
## Not run: plotUGpvalues(pvals, legendpos=c(7,0.5))
## Not run: plotUGpvalues(pvals, legend=TRUE, legendpos=c(7,0.5))
Run the code above in your browser using DataLab