Nothing
#' Método de impresión para objetos de clase "resumen"
#'
#' @param x Objeto de clase "resumen"
#' @param ... Argumentos adicionales
#' @export
print.resumen <- function(x, ...) {
x <- as.data.frame(x)
print(format(round(x, 4), scientific = FALSE, nsmall = 4),
quote = FALSE, ...)
}
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.