tests/testthat/test-target_encoding_rank.R

In collinear: Automated Multicollinearity Management

testthat::test_that("`target_encoding_rank()` works", {
  testthat::skip_on_cran()

  data(vi_smol)

  #rank
  df <- target_encoding_rank(
    df = vi_smol,
    response = "vi_numeric",
    predictor = "soil_type",
    encoded_name = "encoded_column"
  )

  testthat::expect_true(
    class(df[["encoded_column"]]) == "integer"
  )

  df <- target_encoding_rank(
    df = vi_smol,
    response = "vi_numeric",
    predictor = "soil_type",
    encoded_name = NULL
  )

  testthat::expect_true(
    "soil_type__encoded" %in% colnames(df)
  )
})