用R语言while循环编程阶层函数

可以使用以下代码实现：

factorial <- function(n) {
result <- 1
i <- 1
while (i <= n) {
result <- result * i
i <- i + 1
}
return(result)
}

这个函数可以计算阶乘，例如 factorial(5) 将返回 120。