inst/tests/runit.akpRobustD.R

In bootES: Bootstrap Effect Sizes

## Daniel Gerlanc and Kris Kirby (2010-2015)
## Input and regression tests for the akpRobustD function

test.akpRobustD <- function() {
  ## Regression Test
  dat = read.csv(system.file("robust_d_test.csv", package="bootES"))
  truth = 0.190912
  res = bootES:::akpRobustD(dat[["diff"]], seq_len(nrow(dat)))
  checkEquals(truth, res, tol=1e-4) 
}