library(elitism)
pvalues.raw <- c(0.002,0.007,0.005,0.024,0.022,0.009,0.007,0.036,0.060,0.035)
p.adj.hoch <- elitism::p.adjust(pvalues.raw, method = "hochberg")
p.adj.quick <- elitism::p.adjust(pvalues.raw, method = "quick")
p.adj.gtxr <- elitism::p.adjust(pvalues.raw, method = "gtxr")
Run the code above in your browser using DataLab