私は、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のコメントをありがとう、私はこのページhttp://finzi.psych.upenn.edu/R/library/Rwave/html/hurst.est.html
スクリプトで機能
hurst.est(wspec, range, nvoice, plot=TRUE)
の例では、このスクリプトを発見しました私は、最初の部分は、メモリ効果を持つ信号を生成すると思いますが、私はコードの第2部分の一部がhuをextimateするために厳密に必要であることを理解できません最初の指数。誰が私を助け、これを説明することができますか?私は、これは正確に答えはありませんが、
install.packages("sos")
library("sos")
findFn("hurst exponent")
はかなり迅速にそこにあなたを取得する必要があります
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
'install.packages(" sos ");ライブラリ( "sos"); findFn( "hurst exponent") ' –
ベン私はちょうど同じコメントを返信するために戻って来ました。 1人に魚を教えるための+1。 –
@タイラー:あなたはルールを知っています。「...人に魚を釣ることを教えて、あなたは人生のために顧客を失ってしまいました。」 –