# FAIL TEST ci.plot if simrange is not supplied --------------------------------
test_that('FAIL TEST ci.plot if simrange is not supplied', {
z <- zls$new()
z$zelig(Fertility ~ Education, data = swiss)
expect_error(ci.plot(z),
'Simulations for a range of fitted values are not present.')
})
# FAIL TEST ci.plot first difference setrange and setrange1 same length --------
test_that('FAIL TEST ci.plot first difference setrange and setrange1 same length', {
z <- zls$new()
z$zelig(Fertility ~ Education, data = swiss)
z$setrange(Education = 5:15)
z$setrange1(Education = 10:11)
z$sim()
expect_error(z$graph(), 'The two fitted data ranges are not the same length.')
# REQUIRE TEST for first difference over a range plots
z <- zls$new()
z$zelig(Fertility ~ Education, data = swiss)
z$setrange(Education = 5:15)
z$setrange1(Education = 15:25)
z$sim()
expect_error(z$graph(), NA)
})
# REQUIRE TEST ordered plots ---------------------------------------------
test_that('REQUIRE TEST ordered plots', {
data(sanction)
sanction$ncost <- factor(sanction$ncost, ordered = TRUE, levels = c("net gain", "little effect", "modest loss", "major loss"))
z.out <- zoprobitbayes$new()
z.out$zelig(ncost ~ mil + coop, data = sanction, verbose = FALSE)
z.out$setx(mil=0)
z.out$setx1(mil=1)
z.out$sim()
expect_true(is.null(plot(z.out)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.