R要替換的項目數不是替換長度的倍數

Question

我已經寫了一個函數，它必須創建一個rxk矩陣，並用代碼中給出的表單填充它。

mCreate<-function(r,k) 
{ 
result<-array(0,dim=c(r,k)) 
    for(R in 0:(r-1)) 
    { 
    for(K in 0:(k-1)) 
    { 
     result[R][K] = 5*R^K-2*K^R 
     } 
    } 
    return(result) 
} 

當我嘗試測試這個時，我總是會得到「R個項目要替換不是替換長度的倍數」。我不明白爲什麼，我在谷歌搜索，我總是得到的信息，這是因爲我已經出境。

Answer 1

我會使用outer這個，而不是...

mCreate <- function(r , c){ 
    r <- seq_len(r) 
    c <- seq_len(c) 
    m <- outer(r , c , FUN = function(x,y) 5*x^y-2*y^x) 
    return(m) 
} 

mCreate(4 , 4) 
#  [,1] [,2] [,3] [,4] 
#[1,] 3 1 -1 -3 
#[2,] 8 12 22 48 
#[3,] 13 29 81 277 
#[4,] 18 48 158 768 

# Sanity check: 
mCreate(1 , 1) 
#  [,1] 
#[1,] 3 

# Safety check: 
mCreate(0 ,0) 
<0 x 0 matrix>