<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:12pt;color:black;"><DIV>Estou tentando rodar esta rotina no R mas esta dando este erro e tambem ele não esta estimando b2, poderiam me ajudar?</DIV>
<DIV> </DIV>
<DIV>lrp.fit<-nls(cv ~ (b0 + b1*x + b2*I(x^2))*(x<=x0p)<BR> +(b0 + b1*x0p + b2*x0p^2)*(x>x0p),<BR> start=list(b0=10, b1=7, b2=15, x0p=5),<BR> trace=F)<BR></DIV>
<DIV> </DIV>
<DIV>Erro em nls(cv ~ (b0 + b1 * x + b2 * I(x^2)) * (x <= x0p) + (b0 + b1 * : <BR> gradiente singular<BR></DIV></div></body></html>