# tests/testthat/test-plots.R In Zelig: Everyone's Statistical Software

```# 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)))
})
```

## Try the Zelig package in your browser

Any scripts or data that you put into this service are public.

Zelig documentation built on May 2, 2019, 8:24 a.m.