TYPEN <- 
  crossing(alt = 62:65, jahr = PARAM_GLOBAL$jahr_rr:PARAM_GLOBAL$jahr_ende,
           sex = c("m", "f"), nat = c("ch", "au"), dom = c("ch", "au")) %>% 
  mutate(coh = jahr - alt) %>% 
  select(coh, sex, nat, dom, jahr, alt)
