#' Extracts formula call from an lm object
#'
#' @param model An object of class "lm"
#'
#' @return An object of class "formula"
#'
#' @export
model_to_formula <- function(model) {
return(eval(model$call[[2]]))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.