res <- rep(NA, 1000)

for (i in 1:1000) {

  set.seed(sample(100000, size = 1))
  res[i] <-
    model(filter(as_tsibble(RR_F, index = jahr, key = c(sex, nat, dom)),
                 !(is.na(d_pen))), net = NNETAR(d_pen)) %>%
    fabletools::forecast(h = PARAM_GLOBAL$jahr_ende - PARAM_GLOBAL$jahr_lj + 1, 
                         times = 0) %>%
    as_tibble() %>%
    filter(sex == "f", nat == "ch", dom == "ch", jahr == 2025) %>% 
    select(sex, nat, dom, jahr, pred = .mean) %>% 
    pull(pred)
}
