# NOT RUN {
library(GADMTools)
data("Corsica")
# Creates test data.frame (fake data) --------------------------------------
# --------------------------------------------------------------------------
VAR_1 <- as.integer(runif(n = 43, min = 800, max = 15800))
VAR_2 <- as.integer(runif(n = 43, min = 1000, max = 15800))
VAR_3 <- as.integer(runif(n = 43, min = 1500, max = 15800))
Cantons <- listNames(Corsica, 4)
DF <- data.frame(Cantons, VAR_1, VAR_2, VAR_3, stringsAsFactors = FALSE)
dotDensity(Corsica,
DF,
adm.join="Cantons",
values = c("VAR_1", "VAR_2", "VAR_3"),
labels = c("H1N1", "H1N2", "H2N2"),
palette = c("#ffff00", "#ffaa00", "#FF3200"))
# }
Run the code above in your browser using DataLab