<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></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></div><div>f(anos) = a*(b^anos) </div><div><br></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></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></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></div><div>anos2   <- anos-min(anos)+1</div><div><br></div><div>fit <- nls(Brasil ~ a*(b^(anos2)), start = list(a=12, b=1.4))</div><div><br></div><div>a <- coefficients(fit)[1]</div><div>b <- coefficients(fit)[2]</div><div><br></div><div>plot(Brasil ~ anos2)</div><div>lines(a*(b^anos2), col="red", lty=2)</div><div>###</div><div><br></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><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-10-15 22:56 GMT-03:00 Andre Oliveira via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:bookman old style,new york,times,serif;font-size:16px"><div id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17093"><span id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">Boa noite pessoal,</span></div><div id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17108" dir="ltr"><span id="m_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="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17278"><span id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107"><br></span></div><div dir="ltr" id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17184"><span id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107"><br></span></div><div dir="ltr" id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17183"><span id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">Brasil<- c(13.63 ,13.93,14.09,15.12,15.98,16.<wbr>08,16.45,17.96,18.83,19.28,19.<wbr>18,20.89,21.87,21.85,23.43,25.<wbr>38,25.64,26.99,28.68,31.92,32.<wbr>92,33.32,34.37,34.99,36.08,37.<wbr>72,40.41,42.81,44.18,44.91,48.<wbr>97,51.59,53.44,56.49,62.2,66.<wbr>49,67.01,68.41,74.14,77.58,80.<wbr>39,85.71,89.58,96.3,100.9,102.<wbr>8,107.69,111.51,111.42,116.59,<wbr>118.85,121.42,127.53);<br id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17120">anos <- c(1961,1962,1963,1964,1965,<wbr>1966,1967,1968,1969,1970,1971,<wbr>1972,1973,1974,1975,1976,1977,<wbr>1978,1979,1980,1981,1982,1983,<wbr>1984,1985,1986,1987,1988,1989,<wbr>1990,1991,1992,1993,1994,1995,<wbr>1996,1997,1998,1999,2000,2001,<wbr>2002,2003,2004,2005,2006,2007,<wbr>2008,2009,2010,2011,2012,2013)<wbr>;<br id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17121"></span></div><div dir="ltr" id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17181"><span id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107"><br></span></div><div dir="ltr" id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17246"><span id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17107">fit<-nls(Brasil~a*(b^(anos)), start = list(a =18, b=1.4))<br id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17176"><b id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17194">Error in nls(Brasil ~ a * (b^(anos)), start = list(a = 18, b = 1.4)) : <br id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17177">  número de iterações excedeu o máximo de 50</b></span></div><div id="m_6094817213864736368yui_3_16_0_ym19_1_1476500113889_17180"> </div><div class="m_6094817213864736368signature" id="m_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><br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr">Marcus Nunes<br><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br></div></div>
</div>