data(fowlbones)
p <- dim(fowlbones$corr)[1]
pvals <- holm(sinDAG(list(1:p),fowlbones$corr,fowlbones$n))
plotDAGpvalues(pvals)
plotDAGpvalues(pvals, legend=FALSE)
plotDAGpvalues(pvals, legendpos=c(7,0.5))
plotDAGpvalues(pvals, legend=TRUE, legendpos=c(7,0.5))
Run the code above in your browser using DataLab