FPKM2TPM<- function(fpkm){exp(log(fpkm)- log(sum(fpkm))+ log(1e6))}fpkm<- read.delim("~/Desktop/fpkm.txt", row.names=1)TPM<- apply(fpkm,2,FPKM2TPM)