Объект не найден в цикле?

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 »не найден» и не могу понять, почему.

Спасибо