Nothing
context("summary")
# skip("refactoring")
test_that("printing coverage", {
expect_error(capture.output(summary(radf_dta, mc)), regexp = NA)
expect_error(capture.output(diagnostics(radf_dta, mc)), regexp = NA)
expect_error(capture.output(summary(radf_dta, sb)), NA) # Panel
expect_error(capture.output(diagnostics(radf_dta, sb)), regexp = NA)
})
test_that("class checks", {
# msgx <- "Argument 'object' should be of class 'radf'"
msg_y <- "Argument 'cv' should be of class 'radf_cv'"
# expect_error(diagnostics(dta, mc), NA, class = "error")
# expect_error(datestamp(dta, mc), msgx)
expect_error(diagnostics(radf_dta, dta), msg_y)
expect_error(summary(radf_dta, dta), msg_y)
expect_error(datestamp(radf_dta, dta), msg_y)
})
capture_print <- function(x, msg = "Cannot reject H0") {
any(grepl(msg, capture.output(print(x))))
}
test_that("error diagnostics", {
expect_true(capture_print(diagnostics(radf_div, mc)))
expect_true(
capture_print(
diagnostics(radf_95, mc),
msg = "Rejects H0 at the")
)
})
test_that("different minw", {
# Different minw
mc_minw20 <- radf_mc_cv(100, nrep = 10, minw = 20)
wb_minw20 <- radf_wb_cv(dta, nboot = 10, minw = 20)
sb_minw20 <- radf_sb_cv(dta, nboot = 10, minw = 20)
msg <- "minimum window does not match"
expect_error(summary(radf_dta, mc_minw20), msg)
expect_error(diagnostics(radf_dta, mc_minw20), msg)
expect_error(datestamp(radf_dta, mc_minw20), msg)
expect_error(summary(radf_dta, wb_minw20), msg)
expect_error(diagnostics(radf_dta, wb_minw20), msg)
expect_error(datestamp(radf_dta, wb_minw20), msg)
expect_error(summary(radf_dta, sb_minw20), msg)
expect_error(diagnostics(radf_dta, sb_minw20), msg)
expect_error(datestamp(radf_dta, sb_minw20), msg)
})
test_that("Correct output in summary/datestamp", {
expect_output(str(summary(radf_dta, mc)), "List of 5")
expect_output(str(datestamp(radf_dta, mc)), "List of 4") # 4 plus dummy
expect_output(str(summary(radf_dta, wb)), "List of 5")
expect_output(str(datestamp(radf_dta, wb)), "List of 2")
})
withr::with_options(
c(warn = 2),
test_that("no problem running rp/ds/dg (mc)", {
expect_error(summary(radf_dta, mc), regexp = NA)
expect_error(diagnostics(radf_dta, mc), regexp = NA)
expect_error(diagnostics(radf_dta, mc, option = "sadf"), regexp = NA)
expect_error(datestamp(radf_dta, mc), regexp = NA)
expect_error(
datestamp(radf_dta, mc, min_duration = 50),
"Argument 'min_duration' excludes all explosive periods"
)
expect_error(datestamp(radf_dta, mc, option = "sadf"), regexp = NA)
expect_error(autoplot(radf_dta, mc), regexp = NA)
# work here ---------------------------------------------------------------
expect_error(autoplot(radf_dta, mc, option = "sadf"), regexp = NA)
})
)
withr::with_options(
c(warn = 2),
test_that("no problem running summary (lag, mc)", {
expect_error(summary(radf_dta_lag1, mc), regexp = NA)
expect_error(diagnostics(radf_dta_lag1, mc), regexp = NA)
expect_error(diagnostics(radf_dta_lag1, mc, option = "sadf"), regexp = NA)
expect_error(datestamp(radf_dta_lag1, mc), regexp = NA)
expect_error(datestamp(radf_dta_lag1, mc, option = "sadf"), regexp = NA)
expect_error(autoplot(radf_dta_lag1, mc), regexp = NA)
})
)
withr::with_options(
c(warn = 2),
test_that("no problem running summary (wb)", {
expect_error(summary(radf_dta, wb), regexp = NA)
expect_error(diagnostics(radf_dta, wb), regexp = NA)
expect_error(diagnostics(radf_dta, wb, option = "sadf"), regexp = NA)
expect_error(datestamp(radf_dta, wb), regexp = NA)
expect_error(datestamp(radf_dta, wb, option = "sadf"), regexp = NA)
expect_error(autoplot(radf_dta, wb), regexp = NA)
expect_error(autoplot(radf_dta, wb, option = "sadf"), regexp = NA)
})
)
withr::with_options(
c(warn = 2),
test_that("no problem running summary (lag,wb)", {
expect_error(summary(radf_dta_lag1, wb), regexp = NA)
expect_error(diagnostics(radf_dta_lag1, wb), regexp = NA)
expect_error(diagnostics(radf_dta_lag1, wb, option = "sadf"), regexp = NA)
expect_error(datestamp(radf_dta_lag1, wb), regexp = NA)
expect_error(datestamp(radf_dta_lag1, wb, option = "sadf"), regexp = NA)
expect_error(autoplot(radf_dta_lag1, wb), regexp = NA)
expect_error(autoplot(radf_dta_lag1, wb, option = "sadf"), regexp = NA)
})
)
index(radf_dta) <- seq(from = as.Date("1991/10/01"), by = "month", length.out = 100)
withr::with_options(
c(warn = 2),
test_that("no problem running with (date, mc)", {
expect_error(datestamp(radf_dta, mc), regexp = NA)
expect_error(datestamp(radf_dta, mc, option = "sadf"), regexp = NA)
expect_error(autoplot(radf_dta, mc), regexp = NA)
expect_error(autoplot(radf_dta, mc, option = "sadf"), regexp = NA)
})
)
withr::with_options(
c(warn = 2),
test_that("no problem running summary with (date, lag, mc)", {
expect_error(datestamp(radf_dta_lag1, mc), regexp = NA)
expect_error(datestamp(radf_dta_lag1, mc, option = "sadf"), regexp = NA)
expect_error(autoplot(radf_dta_lag1, mc), regexp = NA)
expect_error(autoplot(radf_dta_lag1, mc, option = "sadf"), regexp = NA)
})
)
withr::with_options(
c(warn = 2),
test_that("no problem running summary (date, wb)", {
expect_error(datestamp(radf_dta, wb), regexp = NA)
expect_error(datestamp(radf_dta, wb, option = "sadf"), regexp = NA)
# expect_error(autoplot(radf_dta, wb), regexp = NA)
})
)
withr::with_options(
c(warn = 2),
test_that("no problem running summary (date, lag, wb)", {
expect_error(datestamp(radf_dta_lag1, wb), regexp = NA)
expect_error(datestamp(radf_dta_lag1, wb, option = "sadf"), regexp = NA)
})
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.