# NOT RUN {
parabola_fun <- sim_parabola(mu = 50, sigma = 5, plot = TRUE)
parabola_fun(x = 0:100)
parabola_fun <- sim_parabola(mu = log(40), sigma = 0.5, log_space = TRUE, plot = TRUE)
parabola_fun(x = 1:1000)
parabola_fun <- sim_parabola(mu = c(50, 120), sigma = c(5, 3), plot = TRUE)
parabola_fun(x = rep(1:200, 2), age = rep(c(1, 2), each = 200))
# }
Run the code above in your browser using DataLab