# NOT RUN {
# NOTE: Requires the edgeR package
myDGEobj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
myDGEobj <- DGEobj::resetDGEobj(myDGEobj)
# Default TMM normalization
myDGEobj <- runEdgeRNorm(myDGEobj)
# With some options and plot output
require(canvasXpress)
myDGEobj <- DGEobj::resetDGEobj(myDGEobj)
obj_plus_plot <- runEdgeRNorm(myDGEobj,
normMethod = "upperquartile",
includePlot = TRUE)
myDGEobj <- obj_plus_plot[[1]]
obj_plus_plot[[2]]
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab