R/print.adonis.R
`print.adonis` <-
function(x, ...)
{
cat("\nCall:\n")
cat(deparse(x$call), "\n\n")
print(x$aov.tab)
invisible(x)
}
`print.adonis` <-
function(x, ...)
{
cat("\nCall:\n")
cat(deparse(x$call), "\n\n")
print(x$aov.tab)
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
