# NOT RUN {
data(nydf)
data(nyw)
coords = with(nydf, cbind(longitude, latitude))
out = rflex.test(coords = coords, cases = floor(nydf$cases),
w = nyw, k = 10,
pop = nydf$pop, nsim = 49,
alpha = 0.05, longlat = TRUE)
data(nypoly)
library(sp)
plot(nypoly, col = color.clusters(out))
# }
Run the code above in your browser using DataLab