donnees <- data.frame(
region = c("Bangui","Ombella-Mpoko","Kemo","Zone inconnue"),
valeur = c(100, 200, 150, 80),
stringsAsFactors = FALSE
)
reference <- data.frame(
nom_local = c("Bangui","Ombella-M'Poko","Kemo",
"Bamingui-Bangoran","Mbomou"),
stringsAsFactors = FALSE
)
detecter_ecarts_geo(donnees, "region", reference, "nom_local")
Run the code above in your browser using DataLab