Оценка энтропии Колмогорова из временных рядов - Пакет нелинейных серий
Я пытаюсь оценить энтропию Колмогорова из временного ряда, используя пакет нелинейных серий, хотя он не работает. Я делаю это:
ts<-df$KEur
cd <- nonlinearTseries::corrDim(ts,
min.embedding.dim=6,max.embedding.dim=9,
corr.order=2,time.lag=10,
min.radius=0.05,max.radius=5,
n.points.radius=10,
theiler.window=4,
do.plot=TRUE)
use.col = c("#999999", "#E69F00", "#56B4E9", "#009E73",
"#F0E442", "#0072B2", "#D55E00", "#CC79A7")
se=sampleEntropy(cd,do.plot=TRUE,col=use.col,
type="l",xlim=c(0.1,1),
add.legend=T)
se.est <- estimate(se,
regression.range = c(0.1,1),
col=use.col, type="b")
print(se.est)
cat(" Estimated = ",mean(se.est),"\n")