Olá! O ajuste fica bom, mas o parâmetro "a" tem problemas (alguém da lista mais especializado poderia falar algo sobre). Att. y = c(1,1,2,2,1,3,10,15,9,17,13,18,21,27) tempo=c(2001,2003,2004,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016) library(minpack.lm) exp<-nlsLM(y~a*exp(b*tempo),start = c(a=0,b=0.25),control=list(maxiter=500)) summary(exp) a<-coef(exp)[1] b<-coef(exp)[2] par(mar=c(4,4,1,1)) plot(tempo,y,las=1) curve(a*exp(b*tempo),xname="tempo",add = T) ________________________________ De: R-br <r-br-bounces@listas.c3sl.ufpr.br> em nome de Fabiana Goncalves Barbosa via R-br <r-br@listas.c3sl.ufpr.br> Enviado: domingo, 17 de setembro de 2017 13:53 Para: r-br@listas.c3sl.ufpr.br Assunto: [R-br] Regressão Exponencial Boa Tarde! Tenho os seguintes dados: x = c(1,1,2,2,1,3,10,15,9,17,13,18,21,27) tempo=c(2001,2003,2004,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016) Ao plotar (x,y), verifico um crescimento exponencial do x ao longo do tempo. Alguém teria o script de regressão exponencial para me ajudar? Grata Fabiana