1. #代码来源于生信技能树
    2. ## exp为FPKM的表达矩阵
    3. expMatrix <- exp
    5. #定义一个转换函数
    6. fpkmToTpm <- function(fpkm)
    7. {
    8.   exp(log(fpkm) - log(sum(fpkm)) + log(1e6))
    9. }
    11. #对expMatrix进行FPKM转TPM操作
    12. tpms <- apply(expMatrix,2,fpkmToTpm)
    14. #tpms为转换后的TPM表达矩阵