## specific methods
confint.betaboost <- function(object, ...) {
if (inherits(object, "mboostLSS"))
stop("confidence intervals for beta regression with modeled precision parameter currently not implemented")
NextMethod("confint", object)
}
predict.betaboost <- function(object, newdata = NULL,
type = c("link", "response", "class"), which = NULL,
aggregate = c("sum", "cumsum", "none"), ...) {
NextMethod("predict", object)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.