library(ggplot2)
# long half_life
long_hl <- exp_decay(EuStockMarkets, 0.001)
long_hl
autoplot(long_hl) +
scale_color_viridis_c()
# short half_life
short_hl <- exp_decay(EuStockMarkets, 0.015)
short_hl
autoplot(short_hl) +
scale_color_viridis_c()
Run the code above in your browser using DataLab