# NOT RUN {
library(GADMTools)
data("Corsica")
longitude <- runif(7, min=8.74, max = 9.25)
latitude <- runif(7, min=41.7, max = 42.6)
Cases <- runif(7, 25, 100)
DAT <- data.frame(longitude, latitude, Cases)
propDots(Corsica, data = DAT, value="Cases",
breaks=c(0, 25, 50, 75, 100), range = c(25, 100))
# }
Run the code above in your browser using DataLab