data(nydf)
data(nyw)
coords <- cbind(nydf$x, nydf$y)
nn <- knn(coords, k = 5)
cases <- floor(nydf$cases)
pop <- nydf$pop
ex <- pop * sum(cases) / sum(pop)
# zones for poisson model
pzones <- rflex_zones(nn, w = nyw, cases = cases, ex = ex)
if (FALSE) {
pzones <- rflex_zones(nn,
w = nyw, cases = cases,
ex = ex, verbose = TRUE
)
# zones for binomial model
bzones <- rflex_zones(nn,
w = nyw, cases = cases, ex = ex,
type = "binomial", pop = pop
)
}
Run the code above in your browser using DataLab