在for循环中找不到对象？

Question

这是我正在使用的功能

R0 <- function(beta, gamma, N)
{
  product <- beta*N/gamma
  return(product)
}

这是我在其中使用的for循环

gamma1 <- seq(0.1,2,0.1)
n <- 20
y <- numeric(length(gamma1))
for(i in i:n)
{
  y[i] <- R0(0.1, gamma1[i], 100)
}
plot(y,gamma1)

该函数本身起作用，但是每当我尝试运行for循环时，都会收到错误消息“ i中的错误：找不到对象'i'”，并且无法弄清原因。

谢谢