外部ループによるベクトル化

Question

シーケンスを計算できるように、構築されたR関数をベクトル化するにはどうすればよいですか？

本来の機能である：

A = function(j,x){ 
    if(x<0 & x>j){stop(print(1))} 
    else{ 
    s=0 
    for(k in 0:x){ 
     s = s + ((j-1) * ((2)^k) * x) 
    } 
    } 
return(s) 
} 

と私は私が実行できるアウターループ追加する（jは、X）ベクトルとして、ここでj = 3及びX = SEQ（-2： 2）

Answer 1

Rで関数をベクトル化する最も簡単な方法はVectorizeです。結果として得られる関数はそれほど効率的ではないかもしれないことに注意してください。

Av <- Vectorize(A, vectorize.args = "x") 

Av(j = 3, x = seq(-2, 2)) 
# [1] -7 -3 0 6 28