R/HurstK.R

`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)
}

Try the FGN package in your browser

Any scripts or data that you put into this service are public.

FGN documentation built on May 30, 2017, 7:19 a.m.