library(ggplot2)
ret <- diff(log(EuStockMarkets[ , 1]))
mean <- -0.01 # scenarios around -1%
sigma <- var(diff(ret))
ke <- kernel_entropy(ret, mean, sigma)
ke
autoplot(ke) +
scale_color_viridis_c()
Run the code above in your browser using DataLab