R/test_Dong_method.R

Defines functions test_Dong_method

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)
    
  }
  
}
cbreenmachine/wiscR documentation built on Jan. 26, 2022, 9:10 a.m.