eta_to_d <- function(eta) {
att.f <- sqrt(eta[1] / (1-eta[1]))
att.d <- sqrt(att.f^2 * 4)
output <- list("d" = att.d)
print(paste("Cohen's d = ",att.d, sep = ""))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.