Accélérer les calculs

Question

J'ai ce code ; il est lent et je voudrais qu'il soit plus rapide (c'est-à-dire qu'il soit écrit en une seule ligne sans la boucle for).

n = 1000000
x = numeric(n)
for (i in 1:n) x[i] = rpois(1, 3) + rpois(1, 5)

Answer 1

rpois est vectorisée, donc cela devrait fonctionner pour vous :

n = 1000000
x <- rpois(n, 3) + rpois(n, 5)