example(auckland)
res <- choynowski(auckland$M77_85, 9*auckland$Und5_81)
res1 <- probmap(auckland$M77_85, 9*auckland$Und5_81)
table(abs(res$pmap - res1$pmap) < 0.00001, res$type)
lt005 <- (res$pmap < 0.05) & (res$type)
ge005 <- (res$pmap < 0.05) & (!res$type)
cols <- rep("white", length(lt005))
cols[lt005] <- grey(2/7)
cols[ge005] <- grey(5/7)
plot(auckland, col=cols)
legend("bottomleft", fill=grey(c(2,5)/7), legend=c("low", "high"), bty="n")
Run the code above in your browser using DataLab