Suppose you're asked to write a recursive function in R that calculates the factorial of a number. How would you do it?

To write a recursive function in R that calculates the factorial of a number, you can use the following code: factorial <- function(n) { if (n <= 1) { return(1) } else { return(n * factorial(n - 1)) } }. The function checks if the input n is less than or equal to 1. If it is, it returns 1 (base case). Otherwise, it multiplies n with the factorial of n - 1 (recursive case). This recursive calculation continues until the base case is reached.