Ivan conhecendo o spontos de corte o modelo se torna linear portanto a nls pode ser usada com a opçãp "plinear" e a iteracao numérica é feirta em uma dimensao menos (apenas dos pontos de conte) Isto deve ajudar muito na convergencia Em Qui, 2011-11-17 às 05:20 -0800, Ivan Bezerra Allaman escreveu:
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} _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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.