Рекурсия

fibonacci <- function(x) {
  if (x <= 1) return(x)
  fibonacci(x - 1) + fibonacci(x - 2)
}

f10 <- fibonacci(10)
# f10 = 55

cat("f10 =", f10, "\n")