使用 for 循环填充向量

Question

我试图在 for 循环的每次迭代中用结果 pred 填充向量 pred_pos。但是，我的 pred_pos 向量永远不会被填充。 my_vec 对象是一个大型字符向量列表，我认为不需要针对此问题对其进行复制，因为它很可能是基本索引错误。我只需要知道如何从这个 for 循环中填充一个向量。我似乎无法找到解决方案。

pred_pos <- vector("numeric" , 2)


for(i in my_vec) { 
        for(r in pred_pos) {
        inserts <- sapply(i, function(n) { n <- cond_probs_neg[n] } ) 
        pred <- sum(unlist(inserts) , na.rm = T) * apriori_neg
        pred_pos[r] <- pred
        } 
      }

Answer 1

假设你的代码的其余部分可以工作，则无需明确声明：

pred_pos <- vector("numeric" , 2)

这会创建一个长度为 2 的数字向量。你应该会写：

pred_pos <- vector()

现在，当您希望附加到向量时，您可以简单地使用：

vector[length(vector)+1] <- someData

我相信你的代码在调整后应该可以工作：

pred_pos <- vector()

for(i in my_vec) { 
        inserts <- sapply(i, function(n) { n <- cond_probs_neg[n] } ) 
        pred <- sum(unlist(inserts) , na.rm = T) * apriori_neg
        pred_pos[length(pred_pos)+1] <- pred
 }