# NOT RUN {
# NOTE: Requires the edgeR package
dgeObj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
log2cpm <- convertCounts(dgeObj$counts, unit = "cpm", log=TRUE, normalize = "tmm")
fitObject <- dgeObj$ReplicateGroupDesign_fit
rsq <- rsqCalc (log2cpm, fitObject)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab