# REQUIRE TEST Monte Carlo test normalsurvey ----------------------------------- test_that('REQUIRE TEST normalsurvey Monte Carlo', { z <- znormalsurvey$new() test.normalsurvey <- z$mcunit(plot = FALSE) expect_true(test.normalsurvey) }) # REQUIRE TEST to_zelig for normalsurvey --------------------------------------- test_that('REQUIRE TEST to_zelig for normalsurvey', { data(api) dstrat <- svydesign(id = ~1, strata = ~stype, weights = ~pw, data = apistrat, fpc = ~fpc) m1 <- svyglm(api00 ~ ell + meals + mobility, design = dstrat) expect_error(plot(sim(setx(m1))), NA) })
Generated by dwww version 1.15 on Sun Jun 23 04:09:24 CEST 2024.