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