17 Nov
2011
17 Nov
'11
13:20
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}