tests/testthat/test-case_weights.R

In collinear: Automated Multicollinearity Management

testthat::test_that("`case_weights()` works", {

  data(vi)

  vi <- vi[1:1000, ]

  #binomial weights
  weights <- case_weights(
    x = vi$vi_binomial
  )

  testthat::expect_true(
    length(unique(weights)) == 2
  )

  #multinomial weights
  weights <- case_weights(
    x = vi$vi_categorical
  )

  testthat::expect_true(
    all(names(weights) %in% unique(vi$vi_categorical))
  )

  testthat::expect_error(
    weights <- case_weights(
      x = NULL
    )
  )

})