test_Dong_method <- function(effect, alpha) {
effect <- abs(effect)
s <- 1.5 * median(effect)
for (i in 1:2) {
m <- sum(effect <= 2.5*s)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.