tests/testthat/test-poisson.R

In IQSS/Zelig: Everyone's Statistical Software

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