Использование этой параметризации для логистической модели кривой роста

Я создал несколько точек с: K = 0,7; у0 = 0,01; г = 0,3

df = data.frame(x= seq(1, 50, by = 5))
df$y = 0.7/(1+((0.7-0.01)/0.01)*exp(-0.3*df$x))

Может кто-нибудь сказать мне, как я могу иметь подходящую ошибку, если создать данные с помощью стартеров модели?

fo = df$y ~ K/(1+((K-y0)/y0)*exp(-r*df$x))

model<-nls(fo,
           start = list(K=0.7, y0=0.01, r=0.3),
           df, 
           nls.control(maxiter = 1000))
Error in nls(fo, start = list(K = 0.7, y0 = 0.01, r = 0.3), df, nls.control(maxiter = 1000)) : 
  number of iterations exceeded maximum of 1000