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: [email protected]/[email protected]
@
\end{signature}_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
