# NOT RUN {
data(nydf)
coords = with(nydf, cbind(longitude, latitude))
ubpop_stats = optimal_ubpop(coords = coords, cases = nydf$cases,
pop = nydf$pop, nsim = 49,
ubpop = seq(0.05, 0.5, by = 0.05))
ubpop_stats
# }
# NOT RUN {
plot(ubpop_stats)
# }
Run the code above in your browser using DataLab