7 lines
89 B
R
7 lines
89 B
R
factIter <- function(n) {
|
|
f = 1
|
|
if (n > 1) {
|
|
for (i in 2:n) f <- f * i
|
|
}
|
|
f
|
|
}
|