Nothing
fitted.aodml <- function(object, ..., what = c("mu", "nu", "eta", "phi")) {
what <- match.arg(what)
dat <- object$dat
mu.f <- object$formula
phi.f <- object$phi.formula
X.b <- object$X.b
X.phi <- object$X.phi
offset <- object$offset
b <- object$b
phi <- object$phi
# fitted mu
nu <- as.vector(X.b %*% b)
eta <- if(is.null(offset)) nu else nu + offset
mu <- invlink(eta, type = object$link)
# fitted phi
zphi <- as.vector(X.phi %*% phi)
switch(what, mu = mu, nu = nu, eta = eta, phi = zphi)
}
fitted.aodql <- function(object, ...) fitted(object$fm, ...)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.