# 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.