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) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.