library(pxR)
library(tidyverse)

scen <- 
  read.px("~/data/appl-wb/01_raw_data/allgemein/go/BEVOELKERUNG/px-x-0301000000_101.px") %>% 
  as_tibble

pop <- 
  loadRData("~/data/appl-wb/01_raw_data/allgemein/go/BEVOELKERUNG/espop_NEW.rdata") %>% 
  filter(variable == "bevendejahr") %>% 
  select(year = jahr, sex, nat, age = alt, pop = value)
  
