Hurst üssü R ile hesaplamak istiyorum. Bunu yapabilen bir kütüphane var mı, yoksa işlevde yerleşik mi? herhangi bir öneri takdir edilecektir (referanslar için web linkleri bile). teşekkürlerHurst üssü ile R
güncelleme:
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)
: Ben Bolker ait yorumuna dan, ben bu sayfayı http://finzi.psych.upenn.edu/R/library/Rwave/html/hurst.est.html
senaryo de fonksiyonu
hurst.est(wspec, range, nvoice, plot=TRUE)
örneğinde, bu senaryoyu bulduk Ben ilk bölüm bellek etkisi ile bir sinyal üretmek sanırım, ama kod ikinci bölümünün parçası kesinlikle hu extimate için gerekli olduğunu anlayamıyorum üssü. Bana kim yardımcı olabilir ve bunu açıklar mı? Ben
mcwtwnoise <- Mod(cwtwnoise)
mcwtwnoise <- mcwtwnoise*mcwtwnoise
'install.packages (" sos "); kitaplığı ("sos"); findFn ("hurst exponent") –
Ben sadece aynı yorum ile cevap vermek için geri cominf oldu. Bir erkeğe balık tutmayı öğretmek için +1. –
@Tyler: kuralı biliyorsunuz, "... bir adama balık tutmayı öğretin ve yaşam boyu bir müşteriyi kaybettiniz" :-) –