load_sim_dat <- function() {
  sim_dat <- readRDS(test_path("fixtures", "sim_dat.rds"))
  sim_dat
}