inst/resources/scripts/nfact2.r

In spuRs: Functions and Datasets for "Introduction to Scientific Programming and Simulation Using R"

# function spuRs/resources/scripts/nfact2.r
# calculate n factorial

nfact2 <- function(n) {
    if (n == 1) {
        cat("called nfact2(1)\n")
        return(1)
    } else {
        cat("called nfact2(", n, ")\n", sep = "")
        return(n*nfact2(n-1))
    }
}