Nothing
calData <-function(data)
{
n<-ncol(data)
i<-2:n
datas<-data[,i]
a<-sapply(data,prod,margin=1)
b<-a^(1/nrow(data))
return(b)
}
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.