Nothing
predict.multicut <-
function (object, gnew=NULL, xnew=NULL, ...)
{
if (is.null(xnew) && is.null(gnew)) {
fit <- fitted(object)
} else {
if (is.null(gnew))
stop("gnew must be provided")
if (is.null(xnew)) {
xnew <- matrix(1, length(gnew), 1L)
}
ff <- formula(object)
ff[[2]] <- NULL
X <- if (is.data.frame(xnew))
model.matrix(ff, xnew) else data.matrix(xnew)
Dist <- strsplit(object$dist, ":", fixed=TRUE)[[1L]][1L]
Link <- strsplit(object$dist, ":", fixed=TRUE)[[1L]][2L]
linkinv <- .get_linkinv(object)
g <- factor(gnew, levels(object$strata))
if (any(is.na(X)) || any(is.na(g)))
stop("new data must not have any NA")
if (nrow(X) != length(g))
stop("length of gnew must equal nrow(xnew)")
Z <- model.matrix(~g)[,-1L,drop=FALSE]
cf <- sapply(names(object$species), function(z) getMLE(object, z)$coef)
fit <- matrix(0, nrow(X), ncol(cf))
dimnames(fit) <- list(rownames(X), colnames(cf))
for (i in seq_len(ncol(cf))) {
fit[,i] <- .predict_dist(cf[,i],
dist=Dist, link=Link, X=X, Z=Z, linkinv=linkinv)
}
}
fit
}
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.