Nothing
entropy.Renyi <-function(wind,q){
h<-apply(wind,2,function(y){
sum(y^q)
})
H<-(1/(1-q))*log2(h+.Machine$double.eps)
return(H)
}
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.