Displaying 1 result from an estimated 1 matches for "arglist1".
Did you mean:
arglist
2007 Feb 14
0
environment confusion
...evaluate "call":
call
mle2(minuslogl = function (lmu = NULL, ltheta = NULL)
{
if (!is.null(parameters)) {
pars <- unlist(as.list(match.call())[-1])
for (i in seq(along = parameters)) {
assign(vars[i], mmats[[i]] %*% pars[vpos[[i]]])
}
}
arglist1 <- lapply(arglist1, eval, envir = data, enclos =
sys.frame(sys.nframe()))
r <- -sum(do.call(ddistn, arglist1))
r
}, start = list(lmu = -2.16316747342067, ltheta = 2.30970721353114),
fixed = list(lmu = -2.18543734742826))
The function appears to have the right stuff in its
envir...