Vectorisation avec boucle externe

Question

Comment est-ce que je vectorise une fonction R construite pour que les séquences puissent être calculées?

La fonction d'origine est:

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) 
} 

et je veux ajouter une boucle externe qui me permet d'exécuter une (j, x) en tant que vecteur, où j = 3 et x = seq (-2: 2)

Answer 1

La méthode la plus simple pour vectoriser une fonction dans R est Vectorize. Notez que la fonction résultante peut ne pas être très efficace.

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

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