# NOT RUN {
{
foo <- data.frame (
geo = c("FR", "DEE32", "UKI3" ,
"HU12", "DED",
"FRK"),
values = runif(6, 0, 100 ),
stringsAsFactors = FALSE )
recode_nuts(foo, nuts_year = 2013)
}
# }
# NOT RUN {
my_reg_data <- data.frame(
geo = c(
"BE1", "HU102", "FR1",
"DED", "FR7", "TR", "DED2",
"EL", "XK", "GB"
),
values = runif(10)
)
validate_nuts_regions(my_reg_data)
validate_nuts_regions(my_reg_data, nuts_year = 2013)
validate_nuts_regions(my_reg_data, nuts_year = 2003)
# }
# NOT RUN {
my_reg_data <- data.frame(
geo = c(
"BE1", "HU102", "FR1",
"DED", "FR7", "TR", "DED2",
"EL", "XK", "GB"
),
values = runif(10)
)
validate_geo_code(my_reg_data$geo)
# }
Run the code above in your browser using DataLab