存储来自R中的apply函数的值

Question

我需要帮助学习如何存储循环函数产生的值。我目前的职能如下：

我的数据集例如是：data.matrix(1:100,ncol=10)

席位向量为：seats = data.matrix[5:10]

nthvalue = function(y){

  for (i in 1:5){
    est = apply(seats,1,function(x) x[which(!is.na(x) & x!="")[i]])
  }

  # This is where I want to add each result of est (nth value #1, nth value #2, etc.)
  # as a column and append it to data.matrix.
  data.matrix = cbind(data.matrix,est[i])
}

我想要做的是每个我，我想运行我的功能并将其分配给变量est。然后我想存储 est的第一个结果进入一个专栏。然后当函数再次运行循环时， est 的第二个结果将作为第二列存储在与第一个结果相同的矩阵中。

我希望看到的结束表将采用原始数据矩阵，然后再添加五列（第n个值列）：

Col #1  Col #2  Col #3  Col #4 Col #5 Col #6 Col #7 Col #8 Col #9 Col #10  nthvalue #1 nthvalue #2, etc

我是R的初学者，我对如何完成这项工作感到很困惑。我对此表示感谢。

谢谢！