# NOT RUN {
test_regional_codes <- data.frame(
geo = c("FRB", "FRE", "UKN02", "IE022", "FR243", "FRB03"),
time = c(rep(as.Date("2014-01-01"), 5), as.Date("2015-01-01")),
values = c(1:6),
control = c(
"Changed from NUTS2 to NUTS1",
"New region NUTS2016 only",
"Discontinued region NUTS2013",
"Boundary shift NUTS2013",
"Recoded in NUTS2013",
"Recoded in NUTS2016"
)
)
recode_to_nuts_2016(test_regional_codes)
# }
Run the code above in your browser using DataLab