tests/testthat/helper-data_generator.R

In bdsm: Bayesian Dynamic Systems Modeling

generate_test_data <- function() {
  data.frame(
    entities = rep(1:4, 5),
    times = rep(seq(1960, 2000, 10), each = 4),
    dep_var = stats::rnorm(20), a = stats::rnorm(20), b = stats::rnorm(20)
  )
}

generate_test_feature_standard_data <- function(time_effects = FALSE, scale = TRUE) {
  feature_standardization(
    generate_test_data(),
    timestamp_col = times,
    entity_col = entities,
    time_effects,
    scale
  )
}

generate_test_data_prep_data <- function(standardize = TRUE, time_effects = TRUE, entity_effects = TRUE,
                                    scale = TRUE) {
  data_prep(
    generate_test_data(),
    timestamp_col = times,
    entity_col = entities,
    time_effects,
    entity_effects,
    scale
  )
}