data(auckland)
res <- probmap(auckland$Deaths.1977.85, 9*auckland$Under.5.1981)
res.f <- as.ordered(cut(res$raw*1000, breaks=c(-Inf,2,2.5,3,3.5,Inf),
include.lowest=TRUE))
cols <- grey(6:2/7)
plotpolys(auckpolys, auckbbs, col=cols[codes(res.f)])
legend(c(70,90), c(70,95), fill=cols, legend=levels(res.f), bty="n")
title(main="Crude (raw) estimates of infant mortality per 1000 per year")
res.f <- as.ordered(cut(res$relRisk, breaks=c(-Inf,47,83,118,154,190,Inf),
include.lowest=TRUE))
cols <- cm.colors(6)
plotpolys(auckpolys, auckbbs, col=cols[codes(res.f)])
legend(c(70,90), c(70,95), fill=cols, legend=levels(res.f), bty="n")
title(main="Standardised mortality ratios for Auckland child deaths")
res.f <- as.ordered(cut(res$pmap, breaks=c(0,0.05,0.1,0.2,0.8,0.9,0.95,1),
include.lowest=TRUE))
cols <- cm.colors(7)
plotpolys(auckpolys, auckbbs, col=cols[codes(res.f)])
legend(c(70,90), c(70,95), fill=cols, legend=levels(res.f), bty="n")
title(main="Poisson probabilities for Auckland child mortality")
Run the code above in your browser using DataLab