Vorrei calcolare l'esponente di Hurst con R. Esiste una libreria o una funzione incorporata in grado di farlo? qualsiasi suggerimento sarà apprezzato (anche collegamenti a riferimenti). ThanxEsponente di Hurst con R
aggiornamento: Grazie per il commento di Ben Bolker, ho trovato questo script nell'esempio della funzione
hurst.est(wspec, range, nvoice, plot=TRUE)
a questa pagina http://finzi.psych.upenn.edu/R/library/Rwave/html/hurst.est.html
script:
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)
Immagino che la prima parte generi un segnale con effetto memoria, ma non riesco a capire quale parte della seconda parte del codice sia strettamente necessaria per estendere l'hu primo esponente. Chi può aiutarmi e spiegherebbe questo? Sono in dubbio con
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
'install.packages (" sos "); biblioteca ("SOS"); findFn ("esponente hurst") ' –
Ben mi sono limitato a rispondere con esattamente lo stesso commento. +1 per insegnare a un uomo a pescare. –
@Tyler: conosci la regola, "... insegna a un uomo a pescare e hai perso un cliente a vita" :-) –