| counts2cpm {autonomics} | R Documentation |
Convert between counts and cpm
counts2cpm(x, libsize = scaledlibsizes(x)) cpm2counts(x, libsize)
x |
count/cpm matrix |
libsize |
(scaled) libsize vector |
cpm/tpm/count matrix
file <- download_data('billing19.rnacounts.txt')
object <- read_rnaseq_counts(file, cpm=FALSE, log2=FALSE, plot=FALSE)
libsize <- scaledlibsizes(values(object))
tpm <- counts2tpm(counts(object), genesize = 1)
cpm <- counts2cpm(counts(object), libsize)
counts <- cpm2counts(cpm, libsize)
sum(counts(object) - counts)