<div><span style="color: #0000ff;"><strong><span style="font-size: medium;">É reproduzível este código? Caso afirmativo, necessita de alguma bibliotéca?</span></strong></span></div>
<div> </div>
<div> </div>
<div dir="ltr">
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif;">Delcio,<br /><br /></div>
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif;">Basta fazer assim:<br /><br /><span style="font-family: monospace,monospace;">durner <- as.formula(theta ~<br />                         <span style="color: #ff0000;">w0</span> * (thetar + ((thetas - thetar)/(1 + (alpha0 * psi)^n0)^(1 - 1/n0))) +<br />                         <span style="color: #ff0000;">(1 - w0)</span> * (thetar + ((thetas - thetar)/(1 + (alpha1 * psi)^n1)^(1 - 1/n1))))<br /><br />dur <- nlsLM(durner,<br />             start = list(<span style="color: #ff0000;">w0 = 0.6</span>,<br />                          thetas = 0.5,<br />                          thetar = 0.25,<br />                          alpha0 = 0.1,<br />                          n0 = 2,<br />                          alpha1 = 0.1,<br />                          n1 = 1),<br />             data = dados,<br />             algorithm = "LM",<br />             trace = "F",<br />             control = list(maxiter = 500))<br />summary(dur)</span><br /><br />À disposição.</div>
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif;">Walmes.</div>
<div class="gmail_default" style="font-family: trebuchet ms,sans-serif;"> </div>
​</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>