data(treated)
treated.log <- LogTransform(treated)$output
results <- TwoGroup(treated.log, paired = TRUE)$output
TwoGroupPlots(treated.log[,-1], tstats = results[, 1],
foldchanges = results[, 4], pvalues = results[, 2], padjmethod = "BH",
fcutoff = log(2), pcutoff = 0.05)
Run the code above in your browser using DataLab