# FAIL TEST ci.plot if simrange is not supplied -------------------------------- test_that('FAIL TEST ci.plot if simrange is not supplied', { skip_on_cran() 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', { skip_on_cran() 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', { skip_on_cran() 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))) })
Generated by dwww version 1.15 on Sat May 18 08:44:43 CEST 2024.