免疫评分报错Error in if (est_i >= 0) { : missing value where TRUE/FALSE needed

免疫浸润评分，报错，不知道怎么处理

expr <- read.table("LIHC_fpkm_mRNA_01A.txt",sep = "\t",row.names = 1,check.names = F,stringsAsFactors = F,header = T)
filterCommonGenes(input.f = "LIHC_fpkm_mRNA_01A.txt",
output.f = "LIHC_fpkm_mRNA_01A.gct",
id = "GeneSymbol")
estimateScore("LIHC_fpkm_mRNA_01A.gct",
"LIHC_fpkm_mRNA_01A_estimate_score.txt",
platform="affymetrix")
[1] "1 gene set: StromalSignature overlap= 0"
[1] "2 gene set: ImmuneSignature overlap= 1"
Error in if (est_i >= 0) { : missing value where TRUE/FALSE needed

哦，你把原代码和报错复制到记事本发给我看一下