# REQUIRE TEST Monte Carlo poisson --------------------------------------------- test_that('REQUIRE TEST Monte Carlo poisson', { set.seed("123") z <- zpoisson$new() test.poisson <- z$mcunit(minx = 0, plot = FALSE) expect_true(test.poisson) }) # REQUIRE TEST poisson example ------------------------------------------------- test_that('REQUIRE TEST poisson example', { data(sanction) z.out <- zelig(num ~ target + coop, model = "poisson", data = sanction) x.out <- setx(z.out) s.out <- sim(z.out, x = x.out) expect_error(s.out$graph(), NA) }) # REQUIRE TEST poisson get_pvalue ------------------------------------------------- test_that('REQUIRE TEST poisson example', { data(sanction) z.out <- zelig(num ~ target + coop, model = "poisson", data = sanction) expect_error(z.out$get_pvalue(), NA) }) # REQUIRE TEST poisson to_zelig ------------------------------------------------- test_that('REQUIRE TEST poisson example', { data(sanction) m1 <- glm(num ~ target + coop, family = poisson("log"), data = sanction) zset <- setx(m1, target = 2) expect_equal(zset$setx.out$x$mm[[1]][2], 2) })
Generated by dwww version 1.15 on Wed May 22 06:46:19 CEST 2024.