Nothing
predict.cmulti <-
function(object, newdata = NULL, type = c("link", "response"), ...)
{
if (object$type %in% c("mix", "fmix"))
stop("predicted values are not available for finite mixture model")
if (is.null(newdata)) {
rval <- fitted(object)
## fitted gives 'response', need to use linkfun for 'link'
if (type == "link")
rval <- poisson("log")$linkfun(rval)
} else {
X <- model.matrix(formula(object$formula, lhs=c(FALSE, FALSE)), newdata)
rval <- drop(X %*% coef(object))
if (type == "response") {
rval <- poisson("log")$linkinv(rval)
}
}
rval
}
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.