# \donttest{
set.seed(123)
historical <- rnorm(50, mean = 10, sd = 2)
current <- rnorm(30, mean = 10.5, sd = 2)
comparison <- compare_discounting(historical, current)
plot_sensitivity(comparison)
# }
Run the code above in your browser using DataLab