Nothing
library("diseasemapping")
larynxRates= try(cancerRates("USA", year=1998:2002,site="Larynx"), silent=TRUE)
if(class(larynxRates)=='try-error') {
warning("iarc web site appears to be down")
} else {
larynxRates
data("kentucky")
kentucky = unwrap(kentucky)
kentucky2 = getSMR(kentucky, larynxRates, larynx,
regionCode="County")
if(require('mapmisc', quietly=TRUE)) {
mycol = colourScale(kentucky2$SMR, breaks=9,
dec=-log10(0.5), style='equal', transform='sqrt')
plot(kentucky2, col=mycol$plot)
legendBreaks('topleft', mycol)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.