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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.