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