# NOT RUN {
data(nydf)
data(nyw)
coords = with(nydf, cbind(x, y))
cases = nydf$cases
pop = nydf$pop
out = cepp.test(coords = coords, cases = cases, pop = pop,
nstar = 1000, alpha = 0.1)
plot(out)
data(nypoly)
library(sp)
plot(nypoly, col = color.clusters(out))
# }
Run the code above in your browser using DataLab