Nothing
#' Returns a Tidy Eval formula to calculate prediction interval.
#'
#' It parses a model or uses an already parsed model to return a
#' Tidy Eval formula that can then be used inside a dplyr command.
#'
#' The result still has to be added to and subtracted from the fit to obtain the upper and
#' lower bound respectively.
#'
#' @param model An R model or a list with a parsed model
#' @param interval The prediction interval, defaults to 0.95
#'
#' @examples
#'
#' model <- lm(mpg ~ wt + cyl * disp, offset = am, data = mtcars)
#' tidypredict_interval(model)
#' @export
tidypredict_interval <- function(model, interval = 0.95) {
UseMethod("tidypredict_interval")
}
#' @export
`tidypredict_interval.data.frame` <- function(model, interval = 0.95) {
stop("data.frame based parsed models are no longer supported")
}
#' @export
tidypredict_interval.list <- function(model, interval = 0.95) {
mt <- model$general$model
fit <- NULL
if (mt == "lm") fit <- te_interval_lm(model)
if (mt == "glm") fit <- te_interval_glm(model)
if (is.null(fit)) stop("Model type not supported")
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.