p_dat %>% 
  filter(type == "alt", year == 2024) %>% 
  dplyr::summarize(exp = sum(n * m * mp) / 1e9 %>% round(1))
