[R-br] Regressão Exponencial

Delcio Rudinei Bortolanza delcio.bortolanza em outlook.com
Segunda Setembro 18 08:38:07 -03 2017


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 em listas.c3sl.ufpr.br> em nome de Fabiana Goncalves Barbosa via R-br <r-br em listas.c3sl.ufpr.br>
Enviado: domingo, 17 de setembro de 2017 13:53
Para: r-br em 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


-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170918/abfef6dd/attachment.html>


Mais detalhes sobre a lista de discussão R-br