ji<-function(x){ len<-length(x) re<-1 for(i in 1:len) re<-re*x[i] return (re) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.