# 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)
isopleth(Corsica, data = DAT, palette = "Blues")
# }
Run the code above in your browser using DataLab