Pessoal mais uma vez na procura de ajuda...<div><br></div><div>Estou utilizando o pacote minpack.lm para ajustar uma equação muito grande que com o nls não consegui fazer, agora estou querendo ver os valores ajustados pelo modelo, alguém pode ajudar...</div>
<div>segue o CMR o qual estou trabalhando</div><div><br></div><div>luz=c(0,25,50,75,100,500,1000,1500,2000)</div><div>Pn=c(-0.60375, 0.04300,0.27000,0.90175,1.39225,2.70350,4.93100,4.31000, 3.80075)</div><div><br></div><div>
<div>ps<-list(a=1,b=1)</div><div>model1=function(ps,xx){(((0.01940*xx+ps$a+0.60375)-(((0.01940*xx+ps$a+0.60375)^2)-4*0.01940*xx*ps$b*(ps$a+0.60375))^0.5)/2*ps$b)-0.60375}</div><div>resid1=function(observed,ps,xx){observed-model1(ps,xx)}</div>
<div>lin1=nls.lm(ps,resid1,observed=Pn, xx=PAR)</div><div>summary(lin1)</div><div><br></div><div><font color="#ff0000">predict????</font></div><div><br></div><div>Agradeço desde já!</div><div><br></div>-- <br><div>Bach. Agr.Gilson Sánchez Chia, MSc.<br>
</div>
<p style="margin:0cm 0cm 0pt"><font face="Calibri" size="3">Laboratório de Fisiologia Vegetal</font></p>
<p style="margin:0cm 0cm 0pt"><font face="Calibri" size="3">Embrapa Amazônia Ocidental</font></p>
<div style="margin:0cm 0cm 0pt"><font face="Calibri" size="3">Fone: (92) 3303-7841</font></div><div style="margin:0cm 0cm 0pt"><span style="line-height:150%;font-size:12pt"><a href="http://lattes.cnpq.br/3684553005529634" target="_blank"><span lang="EN-US"><font color="#0000ff">http://lattes.cnpq.br/3684553005529634</font></span></a><span style="padding-right:16px;width:16px;height:16px"></span><span style="padding-right:16px;width:16px;height:16px"></span></span></div>

<div>---<br><font color="#000099">Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.</font></div>
<div><span lang="en-us"><font color="#000099" face="arial,helvetica,sans-serif">Please consider the environment before printing this email.</font></span></div>
<div><span lang="en-us">
<div><span lang="en-us"><font color="#000099"><font face="arial,helvetica,sans-serif">Renew, Reduce and Recycle. The Planet Knows.</font></font></span><b><b><span style="color:rgb(146,208,80);font-family:"Baskerville Old Face","serif";font-size:10pt"></span></b></b><b><span style="color:rgb(153,204,0);font-size:8pt" lang="ES-PE"><font color="#92d050"><font face="Comic Sans MS"><br>
<br></font>Salva un Árbol.</font></span></b><font face="Comic Sans MS"><font size="3"><font color="#99ccff"><font color="#ff0000"><span style="color:rgb(85,85,85);line-height:115%;font-size:10pt">

</span></font></font></font></font><b><b><span style="color:rgb(146,208,80);font-family:"Baskerville Old Face","serif";font-size:10pt"><br></span></b></b><span lang="en-us"><span lang="en-us"><b><em><strong><font color="green" face="Formata Regular" size="1"><span style="color:green;font-family:"Formata Regular";font-size:7pt" lang="ES-PE"><img style="width:95px;height:119px;display:inline" src="http://t2.gstatic.com/images?q=tbn:ANd9GcTxeEyTSKrS2molVT1coxi9OrJVQdNCzLVjF5bEBlIPBr9z6nIYsRIYi1mE" height="153" width="110"></span></font></strong></em></b></span></span><br>
<b><b><span style="color:rgb(146,208,80);font-family:"Baskerville Old Face","serif";font-size:10pt"><br>PIENSA</span></b></b><span lang="en-us"><b><em><strong><font color="green" face="Formata Regular" size="1"><span style="color:green;font-family:"Formata Regular";font-size:7pt" lang="ES-PE"></span></font></strong></em></b></span><b><b><span style="color:rgb(146,208,80);font-family:"Baskerville Old Face","serif";font-size:10pt"> EN EL MUNDO PARA TUS HIJOS</span></b></b><b><em><strong><font color="green" face="Formata Regular" size="1"><span style="color:green;font-family:"Formata Regular";font-size:7pt" lang="ES-PE"> </span></font></strong></em></b><br>
</div></span></div><br>
</div>