search for: expfit

...elfit)$coefficients[2] cat("Best exponential fit is (",ytxt,")=(A*exp(r*(",xtxt,"))) with parameters r=",bfr,"and A=",bfA,"\n") #Produces: Best exponential fit is ( Height in m )=(A*exp(r*( DBH in mm ))) with parameters r= 0.07134055 and A= 9.47907 expfit=lm(log(height)~dbh) #This is doing the exp fit without a self-start function cat("Done another, simpler, way, the best exponential fit has parameters: r=",expfit$coefficients[2],"and A=",exp(expfit$coefficients[1]),"\n") #Produces: Done another, simpler, way, the best...