長さが無効ですエラーは初心者

Question

のために私は、以前の質問を確認しましたが、

columnmean<-function(y){ 
    n<-ncol(y) 
    means<-numeric(n) 
    for(i in 1:n){ 
     means[i]<-mean(y[,i]) 
    } 
    means} 

私は単にエラーを理解することはできませんが、でも、コードは右のようで答えを見つけることができませんでした。

columnmean<-function(y){ 
    n <- ncol(y) 
    means <- numeric(n) 
    for(i in 1:n) { 
    means[i] <- mean(y[,i]) 
    } 
    means 
} 
columnmean(1:10) 

yがベクトルの場合ncol(y)の結果はNULLです：私の入力は、この行のnの値

means[i]<-mean(y[,i]) 

Answer 1

ここでは、エラーの再現である場合にも、私はいくつかの寸法誤差を取得します。関数内の次の計算でエラーが発生します。
また、colMeans(1:10)はエラーを引き起こします（引数の内部チェックが優れているために別のエラーが発生します）。

したがって、コードが（即ち、一次元のみでyベクトル~~>誤差）

columnmean(BOD) 
# [1] 3.666667 14.833333 

エラーがyから依存.:、例えば二次元のデータ用です。