inst/tinytest/test_methods.R

In nonprobsvy: Inference Based on Non-Probability Samples

source("_code_for_all_.R")

ipw_est0 <- nonprob(selection = ~ region + private + nace + size,
                    target = ~ single_shift,
                    svydesign = jvs_svy,
                    data = admin,
                    method_selection = "logit",
                    se = T)

ipw_est1 <- nonprob(selection = ~ region + private + nace + size,
                    target = ~ single_shift,
                    svydesign = jvs_svy,
                    data = admin,
                    method_selection = "logit",
                    se = F)

set.seed(2025)
ipw_est2 <- nonprob(selection = ~ region + private + nace + size,
                    target = ~ single_shift,
                    svydesign = jvs_svy,
                    data = admin,
                    method_selection = "logit",
                    control_inference=control_inf(var_method = "bootstrap",
                                                  num_boot = 20)
)


# test update --------------------------------------------------------------


expect_equal(
  update(ipw_est1, se = T)$output$SE,
  0.042077108910903
)

expect_equal(
  update(ipw_est1, method_selection = "probit")$output$mean,
  0.723953845426239
)

expect_equal(
  update(ipw_est2, control_inference=control_inf())$output$SE,
  0.042077108910903
)

# test confint ------------------------------------------------------------

expect_equal(
  confint(ipw_est0),
  structure(list(target = "single_shift", lower_bound = 0.63989316387091,
                 upper_bound = 0.804832399948789), row.names = 1L, class = "data.frame")
)

expect_equal(
  confint(ipw_est0, level = 0.99),
  structure(list(target = "single_shift", lower_bound = 0.613979331768527,
                 upper_bound = 0.830746232051172), row.names = 1L, class = "data.frame")
)


expect_equal(
  confint(ipw_est1),
  structure(list(target = "single_shift", lower_bound = 0.63989316387091,
                 upper_bound = 0.804832399948789), row.names = 1L, class = "data.frame")
)

expect_equal(
  confint(ipw_est1, level = 0.99),
  structure(list(target = "single_shift", lower_bound = 0.613979331768527,
                 upper_bound = 0.830746232051172), row.names = 1L, class = "data.frame")
)

expect_equal(
  confint(ipw_est2, level = 0.99),
  structure(list(target = "single_shift", lower_bound = 0.638949983302244,
                 upper_bound = 0.791077693520481), row.names = 1L, class = "data.frame")
)