tests/testthat/test-make.dummy.R

In hgwrr: Hierarchical and Geographically Weighted Regression

d <- data.frame(
  years = 1:5,
  number = rnorm(5),
  level = c("top", "mid", "low", "mid", "top"),
  distance = factor(c("far", "near", "near", "far", "far")),
  sold = c(TRUE, TRUE, FALSE, FALSE, TRUE)
)

test_that("make dummy", {
  dummy_d <- expect_no_error(make_dummy(d))
  expect_setequal(
    names(dummy_d),
    c(
      "years", "number", "level.top", "level.mid",
      "distance.far", "sold"
    )
  )
})