SIM1 <- 
  read_delim("~/SIM.csv") %>% 
  as_tibble()

SIM2 <- SIMULATIONS %>% 
  ungroup() %>% 
  select(jahr = year, dom, sex, type, sim_n, sim_m, run) %>% 
  as_tibble()
