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
Run the code above in your browser using DataLab