[R-br] Regressão segmentada!

[Ivan Bezerra Allaman]

Descobri o erro na função. O correto seria:

segment_lpl <- function(x,b0,b1,b2,X0,X1){
  (b0+b1*x)*(x<=X0)+
  (b0+b1*X0)*(X0<x & x<X1)+
  (b0+b1*X0-b2*(X1-x))*(x>=X1)
}

Só não entendo o porque que não estou conseguindo convergência, uma vez que estou fornecendo exatamente os valores que o gráfico interativo está fornecendo.  Se alguém descobrir, fico grato.

(S,f,P)
Allaman

\begin{signature}
<<>>=
Prof. Dr. Ivan Bezerra Allaman
Universidade Estadual de Santa Cruz
Departamento de Ciências Exatas e Tecnológicas
Ilhéus/BA - Brasil
Fone: +55 73 3680-5076
E-mail: ivanalaman em yahoo.com.br/ivanalaman em gmail.com
@
\end{signature}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20111117/dfd6f616/attachment.html>