#' @export
print.alienFit <- function(x, ...){
baseAttr <- attributes(x)
attributes(x) <- NULL
attributes(x) <- list(dim = baseAttr$dim,
dimnames = baseAttr$dimnames)
print(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.