用for循环填充向量

我试图在for循环的每次迭代中用结果

pred

填充向量

pred\u 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
        } 
      }

---

pred_pos假设其余代码正常工作，则无需明确说明：

pred_pos谢谢。如果我完全省略for（pred_pos中的r）循环，而只使用第一个for循环，它实际上工作得很好。是的。很好地使用索引计数器来填充向量。再次感谢。
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
 }