data(data_blum_2015)
data <- filterData(data.blum.2015, condition="Size == 1000", remove.cols=1:2)
res <- postHocTest(data, test = "friedman", use.rank=TRUE, correct="bergmann")
## This function requieres the package Rgraphviz
# drawAlgorithmGraph(res$corrected.pval, res$summary)
Run the code above in your browser using DataLab