expMatrix<-read.table('fpkm_expr.txt',header = T,row.names = 1)
#假设原来的表达矩阵fpkm_expr.txt中行为基因,列为样本,中间数值是FPKM计算得到的值
countToTpm <- function(counts, effLen)
{
rate <- log(counts) - log(effLen)
denom <- log(sum(exp(rate)))
exp(rate - denom + log(1e6))}
countToFpkm <- function(counts, effLen)
{
N <- sum(counts)
exp( log(counts) + log(1e9) - log(effLen) - log(N) )}
fpkmToTpm <- function(fpkm)
{
exp(log(fpkm)-log(sum(fpkm))+log(1e6))}
countToEffCounts<-function(counts, len, effLen)
{
counts * (len/effLen)}
#计算TPM
tpms<-apply(expMatrix,2,fpkmToTpm)
tpms[1:3,]
转录组专题:FPKM转TPM标准化
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
推荐阅读更多精彩内容
- 转录组数据经过比对到参考基因组获得对应基因count值后,因为测序深度以及基因长度的关系,在进行差异分析之前,还需...
- 转录组学习一(软件安装) 转录组学习二(数据下载) 转录组学习三(数据质控) 转录组学习四(参考基因组及gt...