Я написал код ниже: я уверен, что он входит в часть ошибки, но он не присваивается vector_a.кто-нибудь может мне помочь?большое спасибо
vector_a <- c()
for (satr in 1:10) {
my_gene <- input[satr,]$gene
tryCatch({
orgg.inf <- select(org.Hs.eg.db,
keys = as.vector(my_gene),
columns=c("SYMBOL","ENSEMBL"),
keytype="ENSEMBL")
vector_a <- c(vector_a, orgg.inf$SYMBOL)
},
error = function(e){
vector_a <- c(vector_a, "NO")
}
)
}