Nothing
geoMean = function(y)
{
y = y[!is.na(y) & y > 0]
if (length(y) == 0) return(NA)
ly = log(y)
return(exp(mean(ly, na.rm=T)))
}
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.