関数は、指定されたiで1行ずつうまく実行されますが、関数呼び出しでは機能しません。

Question

FUNC <- function(i){ 
var <- i 
dist <- sapply(1:(i-1),function(x){list[[x]]*co[var,x]}) 
mean <- sapply(1:(i-1),FUN2) 
block <- t(co[i,i]*list[[i]])+rowSums(mean) 
new_list[[i]] <- t(block) 
} 

i = 4またはi = 10と指定して、関数定義内で行ごとにコードを実行すると、 new_list[[i]]に値t(block)を割り当てます。 は、しかし、私は

FUNC(4) or FUNC(10) 

を行う場合には、エラーメッセージ

Error in dist[[x]] : subscript out of bounds 

を返す誰もが、それは関数呼び出しでは動作しませんなぜ任意のアイデアを持っていますか？ ありがとうございます！

Answer 1

あなたのFUN2機能がdistを使用していると思われます。しかしdistはFUNCがローカルなので、FUN2はそれを見つけることができません。代わりに、グローバルワークスペース内のワークスペースを使用しますが、これはおそらく短すぎます。だからあなたはそのエラーメッセージを受け取ります。

あなたは本当に、彼らは任意のグローバル変数を使用しないでくださいFUNCとFUN2の両方を変更する必要があります（co、dist、list、new_list - あまりにも、おそらくFUN2をFUNCの引数することができます）。

...しかし、少なくとも変更FUN2引数としてdistを取るために：このコードは、あなたの周りに維持したい何かがある場合

FUN2 <- function(i, dist) { 
    # Your code here... 
} 

# In FUNC: Pass dist to FUN2 
mean <- sapply(1:(i-1),FUN2, dist=dist) 

...そして、あなたは本当に機能を与えることを検討すべきですより具体的な名前...