函数返回意外值

Question

我想得到一个返回矩阵的函数。

mat1 <- function(k)
{
  mat2 <- matrix( 0, ncol = 664, nrow = 182 )
  for (i in 1:664)
  {
    mat2[,i] <- weight0.0025(i,k)
  }
}

其中weight0.0025是一个返回182长向量的函数，但不知怎的，这不起作用。

更令人沮丧的是

mat2 <- matrix( 0, ncol = 664, nrow = 182 )
for(i in 1:664)
{
  mat2[,i] <- weight0.0025(i,k)
}

按预期工作。

我知道我可以用三维数组的形式写，但我需要优化k。

Answer 1

您的功能需要返回声明。

mat1 <- function(k){
  mat2 <- matrix(0, ncol = 664, nrow = 182)
  for (i in 1:664){
    mat2[,i] <- weight0.0025(i,k)
  }
  return(mat2)
}