# \donttest{
library(tibble)
library(purrr)
library(ggplot2)
library(dplyr)
tibble(
iter = 1:40,
value = map_dbl(
1:40,
expo_decay,
start_val = .1,
limit_val = 0,
slope = 1 / 5
)
) %>%
ggplot(aes(x = iter, y = value)) +
geom_path()
# }
Run the code above in your browser using DataLab