1#' Model equations 2#' 3#' Display the mathematical representation of a fitted model. 4#' 5#' @param object A fitted model object. 6#' @param ... Other arguments passed to methods 7#' 8#' @return Markup output suitable for rendering the equation. 9#' 10#' @section Methods: 11#' \Sexpr[stage=render,results=rd]{generics:::methods_rd("equation")} 12#' 13#' @export 14equation <- function(object, ...) { 15 UseMethod("equation") 16} 17