# NOT RUN {
dgeObj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
contrastList <- DGEobj::getType(dgeObj, type = "topTable")
#all defaults
sigSummary <- summarizeSigCounts(contrastList)
#add the fold-chage threshold
sigSummary <- summarizeSigCounts(contrastList, fcThreshold = 2)
#change the significance thresholds
sigSummary <- summarizeSigCounts(contrastList,
sigThresholds = c(0.01, 0.1, 0.1, 0.1, 0.1))
# }
Run the code above in your browser using DataLab