# NOT RUN {
dgeObj <- readRDS(system.file("exampleObj.RDS", package = "DGEobj"))
counts <- DGEobj::getItem(dgeObj, "counts")
exonLength <- dgeObj$geneData$ExonLength
tpm <- tpm.direct(counts, geneLength = exonLength)
# }
Run the code above in your browser using DataLab