Nothing
`HurstK` <-
function(z){
y<-z-mean(z)
S<-cumsum(y)
R<-(max(S)-min(S))/sqrt(sum(y^2)/length(y))
log(R)/log(length(y)/2)
}
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.