関数の出力で行列を塗りつぶすR

Question

行列の各インスタンスで関数の出力を行列に埋めようとしています。私は、エラー "交換長さゼロ"または "交換するアイテムの数が置換の長さの倍数ではありません"を取得します。

助けてください！

setPoint <- function(tarray, t){ 
    var1 <- dim(tarray)[1] #get the length of longitudes, returns a number 
    var2 <- dim(tarray)[2] #get the length of latitudes, returns a number 
    empty.matrix <- matrix(nrow=var1,ncol=var2) 
    for (i in 1:var1) { #i is moving from 1 to 192 (longitude) 
     for (j in 1:var2) { #j moves from 1 to 145 (latitude) 
      tmp.point <- tarray[i,j,] 
      1my.vector <- c(1:var2) 
      my.vector[j] <- thresholdYear(tmp.point, 38,t,0.8) 
     } 
     empty.matrix[i,] <- my.vector 
    } 

} 

Answer 1

まず、関数は何も返しません。 RのforループはNULLを返します。これが関数の返すものです。 2番目に、内部ループでmy.vectorを作成し、次の命令でその値の1つを書き換えます。ループを通る2回目の反復でそれを再現し、前の反復の値を破壊します。あなたがする必要があると思われることは、内側のループの外側にそれを作成することです。次のようなもの

setPoint <- function(tarray, t){ 
var1 <- dim(tarray)[1] #get the length of longitudes, returns a number 
var2 <- dim(tarray)[2] #get the length of latitudes, returns a number 
empty.matrix <- matrix(nrow=var1,ncol=var2) 
for (i in 1:var1) { #i is moving from 1 to 192 (longitude) 
     my.vector <- 1:var2 
    for (j in 1:var2) { #j moves from 1 to 145 (latitude) 
     tmp.point <- tarray[i,j,] 
     my.vector[j] <- thresholdYear(tmp.point, 38,t,0.8) 
    } 
    empty.matrix[i,] <- my.vector 
} 
empty.matrix 

}