递归因子函数循环

Question

我没有任何数据，但我需要创建一个循环变量x在1到10之间的重复函数。我需要做一个阶乘函数，因此5的阶乘是5 * 4 * 3 * 2 * 1 。

这是一堂课。我得到的问题是Factorial（x）= x * Factorial（x-1）

我试图编写类似下面的内容，但它无法正常工作。有什么想法吗？

factorial <- function(x){
y <- 1
for(i in 1:10){
y <-y*((1:x)[i])
print(y)
}
}