tests/testthat/test-horvitzThompson.R

library(mase)
library(survey)
data(api)


out <- horvitzThompson(y = apisrs$api00,
                       pi = apisrs$pw^(-1),
                       var_est = TRUE,
                       var_method = "LinHTSRS")


test_that("horvitzThompson.estimates", {
  
  expect_snapshot(out)
  
})
Swarthmore-Statistics/mase documentation built on March 5, 2024, 6:16 a.m.