# NOT RUN {
# NOTE: Requires the RNASeqPower, statmod, and edgeR packages
dgeObj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
counts <- dgeObj$counts
dm <- DGEobj::getType(dgeObj, type = "designMatrix")[[1]]
resultList <- runPower(countsMatrix = counts,
designMatrix = dm,
includePlots = TRUE)
head(resultList[[1]]) # dataframe
resultList[[2]] # ROC Curves Plot
resultList[[3]] # N vs Power Plot
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab