Desculpem a falha, consegui rodar, não tinha visto a mensagem anterior!
É reproduzível este código? Caso afirmativo, necessita de alguma bibliotéca?
Delcio,
Basta fazer assim:
durner <- as.formula(theta ~
w0 * (thetar + ((thetas - thetar)/(1 + (alpha0 * psi)^n0)^(1 - 1/n0))) +
(1 - w0) * (thetar + ((thetas - thetar)/(1 + (alpha1 * psi)^n1)^(1 - 1/n1))))
dur <- nlsLM(durner,
start = list(w0 = 0.6,
thetas = 0.5,
thetar = 0.25,
alpha0 = 0.1,
n0 = 2,
alpha1 = 0.1,
n1 = 1),
data = "" /> algorithm = "LM",
trace = "F",
control = list(maxiter = 500))
summary(dur)
À disposição.
durner <- as.formula(theta ~
w0 * (thetar + ((thetas - thetar)/(1 + (alpha0 * psi)^n0)^(1 - 1/n0))) +
(1 - w0) * (thetar + ((thetas - thetar)/(1 + (alpha1 * psi)^n1)^(1 - 1/n1))))
dur <- nlsLM(durner,
start = list(w0 = 0.6,
thetas = 0.5,
thetar = 0.25,
alpha0 = 0.1,
n0 = 2,
alpha1 = 0.1,
n1 = 1),
data = "" /> algorithm = "LM",
trace = "F",
control = list(maxiter = 500))
summary(dur)
À disposição.
Walmes.
_______________________________________________
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.
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.
_______________________________________________ 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.