Nothing
#' @rdname get_predict
#' @export
get_predict.biglm <- function(model,
newdata = insight::get_data(model),
type = "response",
...) {
type <- sanitize_type(model, type, calling_function = "predictions")
type_base <- unname(type)
out <- stats::predict(
model,
newdata = newdata,
type = type)
out <- as.vector(out)
out <- data.frame(
rowid = seq_along(out),
estimate = out)
return(out)
}
#' @rdname get_vcov
#' @export
get_vcov.biglm <- function(model,
vcov = NULL,
...) {
if (!isFALSE(vcov)) {
insight::format_warning(c("The `vcov` argument is not supported for this model type. Set `vcov=FALSE` to silence this warning, and visit this link to learn why standard errors for this model are not yet supported and how you can help:", "https://github.com/vincentarelbundock/marginaleffects/issues/387"))
}
return(FALSE)
}
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.