inst/samples/rec.R

In ltierney/Rpkg-proftools: Profile Output Processing Tools for R

f <- function(n) {
    n <- n - 1
    g(n)
}

g <- function(n) {
    if (n > 0)
        f(n)
    else
        0
}

h <- function(n) {
    for (i in 1 : n)
        f(100)
}

system.time(h(50000))