data(treated)
treated.log <- LogTransform(treated, base = 2)$output
results <- TwoGroup(treated.log)$output
pval <- results[, 2]
fc <- results[, 4]
VolcanoPlot(fc, pval, cexlab = 0.8)
Run the code above in your browser using DataLab