Rekursio R:llä

R:llä voi tehdä myös rekursiivisen kutsun, jossa siis funktion sisällä kutsutaan funktiota itseään:

# Funktio kertoma rekursiona R:llä:

kertoma <- function(luku){
if (luku > 1){
return(kertoma(luku-1)*luku)}
else return(1)
}

# Esimerkki funktion käytöstä:
#> kertoma(7)
#[1] 5040