# NOT RUN {
# NOTE: Requires the qvalue package
dgeObj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
contrastList <- DGEobj::getType(dgeObj, type = "topTable")
contrastList <- lapply(contrastList, dplyr::select,
-Qvalue,
-qvalue.lfdr)
colnames(contrastList[[1]])
contrastList <- runQvalue(contrastList)
# note new columns added
colnames(contrastList[[1]])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab