tests/testthat/test-calibrate.R

test_that("calibration works", {
    disp <- weitrix_dispersions(simwei, ~1)
    cal <- weitrix_calibrate(simwei, disp)

    # Calibration should have adjusted weights so all dispersions equal 1
    new_disp <- weitrix_dispersions(cal, ~1)
    expect_equal(new_disp, rep(1, nrow(cal)))
})

Try the weitrix package in your browser

Any scripts or data that you put into this service are public.

weitrix documentation built on Nov. 8, 2020, 8:10 p.m.