Example: Sum of Natural Numbers
# Program to find the sum of
# natural numbers upto n
# using recursive function
calculate_sum() <- function(n) {
if(n <= 1) {
return(n)
} else {
return(n + calculate_sum(n-1))
}
}
Output
> calculate_sum(7) [1] 28
Here, we ask the user for a number and use recursive function calculate_sum() to compute the sum up to that number.