<html><head></head><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:16px">Obrigado Marcus! <br><div id="yui_3_16_0_ym19_1_1476500113889_64601"><span></span></div><div id="yui_3_16_0_ym19_1_1476500113889_64619"> </div><div class="signature" id="yui_3_16_0_ym19_1_1476500113889_64620">André Oliveira Souza.
Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES</div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: bookman old style, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font size="2" face="Arial"> Em Domingo, 16 de Outubro de 2016 10:15, Marcus Nunes <marcus.nunes@gmail.com> escreveu:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv7397042182"><div><div dir="ltr"><div>O erro do R diz que tu excedeu o número máximo de iterações. Eu aumentei eles para 500 e, mesmo assim, não convergiu.</div><div><br clear="none"></div>Creio que o teu problema não tenha solução da maneira que foi proposto. Vai ser muito difícil encontrar uma função do tipo <div><br clear="none"></div><div>f(anos) = a*(b^anos) </div><div><br clear="none"></div><div>que funcione com um número tão grande para anos. Imagine uma função exponencial que cresce muito, muito, muito devagar até 1961 e, a partir daí, explode seu crescimento? Difícil, né?</div><div><br clear="none"></div><div>Para lidar com este problema, o que eu faria é o reduzir o valor dos anos, fazendo eles começarem em 1. Assim fica algo muito mais fácil de imaginar e interpretar:</div><div><br clear="none"></div><div>#####</div><div><div>Brasil <- c(13.63 ,13.93,14.09,15.12,15.98,16.08,16.45,17.96,18.83,19.28,19.18,20.89,21.87,21.85,23.43,25.38,25.64,26.99,28.68,31.92,32.92,33.32,34.37,34.99,36.08,37.72,40.41,42.81,44.18,44.91,48.97,51.59,53.44,56.49,62.2,66.49,67.01,68.41,74.14,77.58,80.39,85.71,89.58,96.3,100.9,102.8,107.69,111.51,111.42,116.59,118.85,121.42,127.53)</div><div>anos <- c(1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013)</div><div><br clear="none"></div><div>anos2 <- anos-min(anos)+1</div><div><br clear="none"></div><div>fit <- nls(Brasil ~ a*(b^(anos2)), start = list(a=12, b=1.4))</div><div><br clear="none"></div><div>a <- coefficients(fit)[1]</div><div>b <- coefficients(fit)[2]</div><div><br clear="none"></div><div>plot(Brasil ~ anos2)</div><div>lines(a*(b^anos2), col="red", lty=2)</div><div>###</div><div><br clear="none"></div><div>Para encontrar os valores iniciais, eu tomei log(Brasil), ajustei uma reta a estes dados e tomei a exponencial dos valores encontrados. Aliás, linearizar a tua variável resposta é uma outra maneira de resolver este problema. Só tem que tomar cuidado com as inferências posteriores.</div><div><br clear="none"><div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div><div><br clear="none"></div></div></div></div><div class="yiv7397042182gmail_extra"><br clear="none"><div class="yiv7397042182gmail_quote">2016-10-15 22:56 GMT-03:00 Andre Oliveira via R-br <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>></span>:<br clear="none"><blockquote class="yiv7397042182gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv7397042182yqt3857787491" id="yiv7397042182yqt37398"><div><div style="color:#000;background-color:#fff;font-family:bookman old style, new york, times, serif;font-size:16px;"><div id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17093"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">Boa noite pessoal,</span></div><div dir="ltr" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17108"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">o que eu poderia modificar neste ajuste para obter exito? Já variei os chutes iniciais e não consegui.</span></div><div dir="ltr" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17278"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107"><br clear="none"></span></div><div dir="ltr" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17184"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107"><br clear="none"></span></div><div dir="ltr" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17183"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">Brasil<- c(13.63 ,13.93,14.09,15.12,15.98,16. 08,16.45,17.96,18.83,19.28,19. 18,20.89,21.87,21.85,23.43,25. 38,25.64,26.99,28.68,31.92,32. 92,33.32,34.37,34.99,36.08,37. 72,40.41,42.81,44.18,44.91,48. 97,51.59,53.44,56.49,62.2,66. 49,67.01,68.41,74.14,77.58,80. 39,85.71,89.58,96.3,100.9,102. 8,107.69,111.51,111.42,116.59, 118.85,121.42,127.53);<br id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17120" clear="none">anos <- c(1961,1962,1963,1964,1965, 1966,1967,1968,1969,1970,1971, 1972,1973,1974,1975,1976,1977, 1978,1979,1980,1981,1982,1983, 1984,1985,1986,1987,1988,1989, 1990,1991,1992,1993,1994,1995, 1996,1997,1998,1999,2000,2001, 2002,2003,2004,2005,2006,2007, 2008,2009,2010,2011,2012,2013) ;<br id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17121" clear="none"></span></div><div dir="ltr" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17181"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107"><br clear="none"></span></div><div dir="ltr" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17246"><span id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">fit<-nls(Brasil~a*(b^(anos)), start = list(a =18, b=1.4))<br id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17176" clear="none"><b id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17194">Error in nls(Brasil ~ a * (b^(anos)), start = list(a = 18, b = 1.4)) : <br id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17177" clear="none"> número de iterações excedeu o máximo de 50</b></span></div><div id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17180"> </div><div class="yiv7397042182m_6094817213864736368signature" id="yiv7397042182m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17186">André Oliveira Souza.
Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES</div></div></div></div><br clear="none">______________________________ _________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/ cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br- guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><br clear="none"><br clear="all"><div><br clear="none"></div>-- <br clear="none"><div class="yiv7397042182gmail_signature"><div dir="ltr">Marcus Nunes<br clear="none"><a rel="nofollow" shape="rect" target="_blank" href="http://marcusnunes.me/">http://marcusnunes.me/</a><br clear="none"></div></div>
</div></div></div><br><br></div> </div> </div> </div></div></body></html>