Skip to content
Prev 10188 / 15379 Next

[R-es] Aplicar una función repetidamente

Yo de primeras lo haría así:

f <- function(x) return(x^2)

recursiva <- function(x, fun, k) {
   if (k > 1) return(fun(recursiva(x, fun, k-1))) else return(fun(x))
}

 > recursiva(2,f,1)
[1] 4
 > recursiva(2,f,2)
[1] 16
 > recursiva(2,f,3)
[1] 256
 > f(f(f(2)))
[1] 256

Un saludo,
     Rubén FC


El 12/05/2016 a las 10:29, Carlos Ortega escribió: