data(stressful)
pvals <- holm(sinBG(stressful$corr,stressful$n))
plotBGpvalues(pvals)
plotBGpvalues(pvals, legend=FALSE)
plotBGpvalues(pvals, legendpos=c(5,0.5))
plotBGpvalues(pvals, legend=TRUE, legendpos=c(5,0.5))
Run the code above in your browser using DataLab