  Is there anyway to change any y[i] value (i=2,...6) to make following NLS workable? 
   
  x <- c(0,5,10,15,20,25,30)
  y <- c(1.00000,0.82000,0.68000,0.64000,0.66667,0.68667,0.64000)
  lm(1/y ~~ x)
  nls(1/y ~~ a+b*x^c, start=list(a=1.16122,b=0.01565,c=1), trace=TRUE)
   
  #0.0920573 :  1.16122 0.01565 1.00000 
#Error in numericDeriv(form[[3]], names(ind), env) : 
#        Missing value or an infinity produced when evaluating the model

 			
---------------------------------


	[[alternative HTML version deleted]]

