Nothing
#' @method print Tenv
#' @export
#' @importFrom stats coef
print.Tenv <- function(x, ...){
cat("Call:\n", paste(deparse(x$call), sep = "\n", collapse = "\n"),
"\n\n", sep = "")
cat("Coefficients:\n")
cf <- stats::coef(x)
if (!is.null(cf)) {
print(cf)
}
else cat("No coefficients\n")
cat("\n")
invisible(x)
}
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.