if (FALSE) {
graphGUI()
pvalues <- c(9.7, 1.5, 0.5, 0.6, 0.4, 0.8, 4)/100
graphGUI(HommelEtAl2007(), pvalues=pvalues)
x <- new.env()
assign("graph", BonferroniHolm(3), envir=x)
graphGUI("graph", envir=x)}
Run the code above in your browser using DataLab