<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1457439622468_9065"><font id="yui_3_16_0_1_1457439622468_10448" size="3">Olá, bom dia a todos.</font></div><div id="yui_3_16_0_1_1457439622468_9080"><font size="3"><br></font></div><div id="yui_3_16_0_1_1457439622468_9081"><font id="yui_3_16_0_1_1457439622468_10236" size="3">Estou tentando ajustar o modelo não linear Richards ao seguinte conjunto de dados:</font></div><div dir="ltr" id="yui_3_16_0_1_1457439622468_9082"><font id="yui_3_16_0_1_1457439622468_10237" size="3"> y<-c(32.2,45.1,63.3,87.7,107.6,120.4,131.8,148.9,159.3,166.8,173.4,187.4,195.5,198.8,211.0,221.4,226.6,231.2,237.7,243.1,246.6,250.3)<br> x<-c(90,180,270,360,450,540,630,720,810,900,990,1080,1170,1260,1350,1440,1530,1620,1710,1800,1890,1980)<br></font></div><div id="yui_3_16_0_1_1457439622468_9125"><font size="3"><br></font></div><div id="yui_3_16_0_1_1457439622468_9106"><font id="yui_3_16_0_1_1457439622468_10234" size="3">Ao utilizar o shiny, obtive os seguintes valores iniciais: alpha=270 , beta= 402, k=0.0016 , d=0.8. O problema é que o gráfico fica muito bom com esses valores, mas ao colocar esse valores iniciais na nls aparece a mensagem de erro:</font></div><div id="yui_3_16_0_1_1457439622468_9700"><br></div><pre tabindex="0" class="GEM3DMTCFGB" id="rstudio_console_output" style="font-family: 'Lucida Console'; font-size: 10pt !important; outline: none; border: none; word-break: break-all; margin: 0px; -webkit-user-select: text; white-space: pre-wrap !important; line-height: 15px; color: rgb(0, 0, 0); font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: -webkit-left; text-indent: 0px; text-transform: none; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; background-color: rgb(255, 255, 255);"><span id="yui_3_16_0_1_1457439622468_9722" class="GEM3DMTCLGB ace_keyword" style="white-space: pre;"> </span><span id="yui_3_16_0_1_1457439622468_9622" class="GEM3DMTCLFB ace_keyword">ajuste=nls(y~(alpha*(1 + (d - 1)*exp(-k*(x-beta)))^(1/(1-d))),<br>start=c(alpha= 270, beta= 402 , k= 0.0016, d=0.8))
</span><span id="yui_3_16_0_1_1457439622468_9638" class="GEM3DMTCPFB ace_constant">Error in numericDeriv(form[[3L]], names(ind), env) :
Obtido valor faltante ou infinito quando avaliando o modelo<br><br></span><br><span id="yui_3_16_0_1_1457439622468_9638" class="GEM3DMTCPFB ace_constant" style="color: rgb(197, 6, 11);"><font id="yui_3_16_0_1_1457439622468_9990" face="HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif" color="#000000" size="3">Já tentei mudar a parametrização do modelo e aumentar o número de iterações e mesmo assim não ajustou.</font><font id="yui_3_16_0_1_1457439622468_10415" face="HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif" color="#000000" size="3"> Alguém já se deparou com um problema parecido? <br><br>Desde já agradeço.</font><br></span></pre></div></body></html>