##
### Print effect size information
##
print.effsize <- function(x, ...){
cat("\n")
cat(x$method)
cat("\n\n")
cat(x$name)
cat(" estimate: ")
cat(x$estimate)
cat(" (")
cat(as.character(x$magnitude))
cat(")\n")
if("mu" %in% names(x)){
cat("Reference mu: ")
cat(x$mu)
cat("\n")
}
if("conf.level" %in% names(x)){
conf = x$conf.level*100
cat(conf)
cat(" percent confidence interval:\n")
print(x$conf.int)
}
cat("\n")
}
#S3method(print, effsize)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.