Displaying 1 result from an estimated 1 matches for "localf".
Did you mean:
local
2011 Feb 15
0
Delta method using numerical derivatives
...%*% Sigma %*% gd)))
data.frame(Estimate = est, SE = se.est)
}
predictnl <- function (object, ...)
UseMethod("predictnl")
predictnl.default <- function(object,fun,newdata=NULL,...)
{
if (is.null(newdata) && !is.null(object$data))
newdata <- object$data
localf <- function(coef,...)
{
object$coefficients = coef
fun(object,...)
}
numDeltaMethod(object,localf,newdata=newdata,...)
}