Nothing
context("test-summary")
test_that("Summary is identical", {
dyn.out <- dynardl(concern ~ incshare10 + urate, data = ineq,
lags = list("concern" = 1, "incshare10" = 1, "urate" = 1), ec = TRUE,
constant = FALSE, trend = FALSE, simulate = FALSE)
expect_identical(summary(dyn.out), summary(dyn.out$model))
})
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.