Nothing
Zc <- function(Z) {
# Proportion of minorities in population (all groups except first)
z <- length(Z)
sum(Z[2:z])
}
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.