Me gustaría calcular el exponente de Hurst con R. ¿Hay una biblioteca o función incorporada que pueda hacer esto? cualquier sugerencia será apreciada (incluso enlaces a referencias). Graciasexponente de Hurst con R
actualización: Gracias al comentario de Ben Bolker, he encontrado este script en el ejemplo de la función
hurst.est(wspec, range, nvoice, plot=TRUE)
en esta página http://finzi.psych.upenn.edu/R/library/Rwave/html/hurst.est.html
guión:
wnoise <- rnorm(8192)
plot.ts(wnoise)
spwnoise <- fft(wnoise)
spwnoise <- Mod(spwnoise)
spwnoise <- spwnoise*spwnoise
plot(spwnoise[1:4096], log="xy", type="l")
lswnoise <- lsfit(log10(1:4096), log10(spwnoise[1:4096]))
abline(lswnoise$coef)
cwtwnoise <- DOG(wnoise, 10, 5, 1, plot=FALSE)
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
wspwnoise <- tfmean(mcwtwnoise, plot=FALSE)
wspec.pl(wspwnoise, 5)
hurst.est(wspwnoise, 1:50, 5)
Supongo que la primera parte genera una señal con efecto de memoria, pero no puedo entender qué parte de la segunda parte del código es estrictamente necesaria para primer exponente ¿Quién puede ayudarme y me explicaría esto? Estoy en duda con
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
'install.packages (" sos "); biblioteca ("sos"); findFn ("exponente de hurst") ' –
Ben. Acabo de regresar para responder exactamente el mismo comentario. +1 por enseñar a un hombre a pescar. –
@Tyler: usted conoce la regla, "... enseñe a un hombre a pescar y usted ha perdido un cliente de por vida" :-) –