library(ggplot2)
library(dplyr, warn.conflicts = FALSE)
x <- exp_decay(EuStockMarkets, lambda = 0.001)
y <- exp_decay(EuStockMarkets, lambda = 0.002)
bind_probs(x, y)
bind_probs(x, y) %>%
ggplot(aes(x = rowid, y = probs, color = fn)) +
geom_line() +
scale_color_viridis_d() +
theme(legend.position="bottom")
Run the code above in your browser using DataLab