# NOT RUN {
library(GADMTools)
data("Corsica")
longitude <- runif(6, min=8.74, max = 9.25)
latitude <- runif(6, min=41.7, max = 42.6)
Cases <- runif(6, 25, 112)
DAT <- data.frame(longitude, latitude, Cases)
dots(Corsica, DAT, color="red", size = 8, value = "Cases")
# }
Run the code above in your browser using DataLab