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