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@yahoo.com.br/ivanalaman@gmail.com
@
\end{signature}