プロモーターのタグから遺伝子ごとにTPM（transcripts per million ）をまとめる作業をしています。オブジェクト 'Progress' がありませんというエラーを解除したいです。

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
プロモーターのタグから遺伝子ごとにTPM（transcripts per million ）をまとめる作業をしています。

発生している問題・エラーメッセージ

paste0(" ##### Progress:", Progress, "% #####\r") でエラー:
オブジェクト 'Progress' がありません

エラーメッセージ
```setwd("/Users/shojima/Desktop/R_Practice/data")
> expMatrix <- read.table("iPS_HEP_diff_F5.TPM_2.txt", header=TRUE, row.name=NULL, sep="\t", stringsAsFactors=FALSE)
> expMatrix <- expMatrix[,c(1,2,3,4,14,15,16,5,6,7,8,9,10,11,12,13)]
> promoterID <- expMatrix[,"prmtrID"]
> gene_name <- sapply(strsplit(promoterID, "@"), function(x){x[2]})
> unique.gene_name <- unique(gene_name)
> gene_expMatrix <- NULL
> counter <- 0
> for(i in unique.gene_name){
+ gene_expMatrix <- rbind(gene_expMatrix, apply(expMatrix[which(gene_name == i),-1],2,sum))
+ counter <- counter + 1
+ progress <- floor((counter/length(unique.gene_name))*100)
+ cat(paste0(" ##### Progress:",Progress, "% #####\r"))
+ }
 paste0(" ##### Progress:", Progress, "% #####\r") でエラー: 
   オブジェクト 'Progress' がありません 



```ここに言語名を入力
R言語

Answer 1

これは単に先頭大文字小文字の違いですね

progress <- floor((counter/length(unique.gene_name))*100)

progress と先頭小文字

cat(paste0(" ##### Progress:",Progress, "% #####\r"))

Progress と先頭大文字

どちらかに合わせればよろしいかと