#'@method print diff
print.diff <- function(mues_diff, ...){
cat("All posible models","\n")
print(as.matrix(mues_diff$models))
cat("Critic Value",mues_diff$critic_value,"\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.