R 使用上一个循环的结果作为下一个循环的输入

我有下面的代码，它似乎完成了我试图做的事情，但也抛出了代码下面显示的错误输出。我要做的是，第一次在x=1的情况下运行循环，然后每次循环运行之后，我想要x=y，前一个循环的结果。我总是摸索循环，所以任何提示都非常感谢

Code:

for(i in 1:5)
{ 
 if(i=1)
 {
 x<-1
 }
 else
 {
 x<-y
 }
 y<-x*i
 y
 }


ERRORS:

 for(i in 1:5)
+ { 
+   if(i=1)
Error: unexpected '=' in:
  "{ 
    if(i="
   >   {
   +   x<-1
   +   }
    >   else
   Error: unexpected 'else' in "  else"
   >   {
   +   x<-y
  +   }
   >   y<-x*i
   >   y
   [1] 25
   > }
   Error: unexpected '}' in "}"

代码：
（我在1:5中）
{ 
如果（i=1）
{
x}
错误：“}”中出现意外“}”

以下是重新编写的代码，语法稍微清晰一些

for (i in 1:5) {
    if (i == 1) {
        x <- 1
    } else {
        x <- y
    }
    y <- x * i
}

for（1:5中的i）{
如果（i==1）{
如果（i==1），则可能需要x
for (i in 1:5) {
    x <- ifelse(i == 1, 1, y)
    y <- x * i
}