inst/tests/runit.akpRobustD.R

## 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) 
}

Try the bootES package in your browser

Any scripts or data that you put into this service are public.

bootES documentation built on May 1, 2019, 10:53 p.m.