La fonction FoldLeft est-elle disponible dans R?

Question

Je voudrais savoir s'il y a une implémentation de la fonction foldLeft (et foldRight?) Dans R.

Le langage est censé être "plutôt" orienté fonctionnel et donc je pense qu'il devrait y avoir quelque chose comme ça, mais je ne pouvais pas le trouver dans la documentation.

Pour moi, la fonction foldLeft applique sur une liste et a la signature suivante:

foldLeft[B](z : B)(f : (B, A) => B) : B 

Il est censé le résultat suivant:

f(... (f(f(z, a0), a1) ...), an) if the list is [a0, a1, ..., an]. 

(j'utilise la définition du Scala List API

Est-ce que quelqu'un sait si une telle fonction existe dans R?

Answer 1

? Réduire. Utilisation Réduire (f, x, init, droite = FALSE, accumulez = FALSE)

Answer 2

Si vous voulez un vecteur de résultats, cela fonctionne:

foldl = function(f, v, x) {w = v; for (i in 1 : length(v)) { x = w[[i]] = f(x, v[[i]]) }; w } 

Maintenant, vous pouvez redéfinir cumsum comme

cumsum(v) = foldl(function(x,y) { x+y }, v, 0) 

Pour l'améliorer, vous devez gérer les valeurs manquantes comme Reduce.