zones_rca <- data.frame(
nom_zone = c("Bangui","Ombella-M'Poko","Bamingui-Bangoran",
"Mbomou","Haute-Kotto"),
code_ins = c("01","02","03","04","05"),
code_iso = c("CF-BGF","CF-MP","CF-BB","CF-MB","CF-HK"),
code_gadm = c("GADMa001","GADMa002","GADMa003","GADMa004","GADMa005"),
niveau = rep(1L, 5),
pays = rep("CAF", 5),
stringsAsFactors = FALSE
)
table_concordance(zones_rca, var_nom_local="nom_zone",
var_code_ins="code_ins", var_code_iso="code_iso",
var_code_gadm="code_gadm", var_niveau="niveau",
var_pays="pays")
Run the code above in your browser using DataLab