r - 関数が予期しない値を返す

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)
}

期待どおりに動作します。

3 次元配列の形式で記述できることはわかっていますが、k を最適化する必要があります。

Answer 1

関数には return ステートメントが必要です。

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