library(ggplot2)
ret <- diff(log(EuStockMarkets[ , 1]))
mean <- -0.01 # scenarios around -1%
sigma <- var(diff(ret))
kn <- kernel_normal(ret, mean, sigma)
kn
autoplot(kn) +
scale_color_viridis_c()
# A larger sigma spreads out the distribution
sigma <- var(diff(ret)) / 0.05
kn <- kernel_normal(ret, mean, sigma)
autoplot(kn) +
scale_color_viridis_c()
Run the code above in your browser using DataLab