我想用R計算赫斯特指數是否有一個庫或內置函數可以做到這一點?任何建議將不勝感激(甚至鏈接到引用)。感謝名單赫斯特指數與R
更新:
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)
:感謝名單奔Bolker的評論,我已經在功能
hurst.est(wspec, range, nvoice, plot=TRUE)
的例子在本頁面http://finzi.psych.upenn.edu/R/library/Rwave/html/hurst.est.html
腳本發現了這個腳本我猜測第一部分會產生一個帶有記憶效應的信號,但我無法理解,因爲第二部分代碼的一部分是嚴格需要的第一個指數。誰可以幫助我,並解釋這一點?我在懷疑與
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
'install.packages(「sos」);庫( 「SOS」); findFn(「hurst exponent」)' – 2012-02-24 15:22:00
本我只是回頭來回答與完全相同的意見。 +1教男人釣魚。 – 2012-02-24 15:26:31
@泰勒:你知道規則,「......教一個人釣魚,你已經失去了一個終生的客戶」:-) – 2012-02-24 16:01:44