tests/testthat/test-rolling_timedummy.R

In REPS: Hedonic and Multilateral Index Methods for Real Estate Price Statistics

test_that("Test Rolling Time Dummy", {
  save_refs <- FALSE  # Set to TRUE to save reference output
  ref_file <- test_path("test_data", "rolling_timedummy_output.rds")
  
  tbl_rolling <- calculate_rolling_timedummy(
    dataset = data_constraxion,
    period_variable = "period",
    dependent_variable = "price",
    numerical_variables = "floor_area",
    categorical_variables = "neighbourhood_code",
    reference_period = "2015",
    window_length = 5,
    number_of_observations = FALSE
  )
  
  if (save_refs) {
    dir.create(dirname(ref_file), showWarnings = FALSE, recursive = TRUE)
    saveRDS(tbl_rolling, ref_file)
    succeed("Reference file saved.")
  } else {
    ref_tbl <- readRDS(ref_file)
    expect_equal(tbl_rolling, ref_tbl, tolerance = 1e-8)
  }
})