# NOT RUN {
# NOTE: Requires the limma and statmod packages
myDGEobj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
# Name the design matrix to be used (see inventory(myDGEobj))
designMatrixName <- "ReplicateGroupDesign"
# Define the named contrasts from design matrix column names
contrastList <- list(BDL_v_Sham = "ReplicateGroupBDL - ReplicateGroupSham",
EXT1024_v_BDL = "ReplicateGroupBDL_EXT.1024 - ReplicateGroupBDL",
Nint_v_BDL = "ReplicateGroupBDL_Nint - ReplicateGroupBDL",
Sora_v_BDL = "ReplicateGroupBDL_Sora - ReplicateGroupBDL")
myDGEobj <- runContrasts(myDGEobj,
designMatrixName=designMatrixName,
contrastList=contrastList,
contrastSetName = "SecondContrastSet",
qValue = TRUE,
IHW = FALSE,
runTopTable = TRUE,
runTopTreat = TRUE,
foldChangeThreshold = 1.25)
DGEobj::inventory(myDGEobj)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab