tests/testthat/test-rtadfSimPar.R

In icaspi99/rtadfr: Testing for Bubbles with R

# A unit test for rtadf function

test <- TRUE

if (test == TRUE) {
  if (require(testthat)) {
    context("Tests rtadfSimPar adf results")
    set.seed(1203)
    obs  <- 100
    r0 <- 90

    adf   <- rtadfSimPar(obs, 90, 1, test = "adf")[[1]]
    expect_equal(adf, -2.874247, tolerance = 0.000001)

    sadf  <- rtadfSimPar(obs, 90, 1, test = "sadf")[[1]]
    expect_equal(sadf[[1]], -1.739771, tolerance = 0.000001)

    gsadf <- rtadfSimPar(obs, 90, 1, test = "gsadf")[[1]]
    expect_equal(gsadf[[1]], -1.891693, tolerance = 0.000001)
  }
}