## Helper function for 'setDist'
## Clear row names (age groups)
noGroups <-
function(thisVar){
for (i in seq(5))
thisVar[[i, 0]] <- NULL
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.