library(ggplot2)
# invariance (stationarity)
ret <- diff(log(EuStockMarkets))
# full weight on scenarios where CAC returns were above 2%
market_condition <- crisp(x = ret, ret[ , 3] > 0.02)
market_condition
autoplot(market_condition) +
scale_color_viridis_c()
Run the code above in your browser using DataLab