data(auckland)
res <- choynowski(auckland$Deaths.1977.85, 9*auckland$Under.5.1981)
res1 <- probmap(auckland$Deaths.1977.85, 9*auckland$Under.5.1981)
table(abs(res$pmap - res1$pmap) < 0.00001, res$type)
plot(auckpolys, forcefill=FALSE)
lt005 <- (res$pmap < 0.05) & (res$type)
ge005 <- (res$pmap < 0.05) & (!res$type)
plot(subset(auckpolys, lt005), add=TRUE, col=grey(2/7), forcefill=FALSE)
plot(subset(auckpolys, ge005), add=TRUE, col=grey(5/7), forcefill=FALSE)
legend(c(70,90), c(70,95), fill=grey(c(2,5)/7),
legend=c("low", "high"), bty="n")
Run the code above in your browser using DataLab