# NOT RUN {
# Simulate daily gains over a 5-year period
set.seed(123)
gains <- rnorm(n = 252 * 5, mean = 0.001, sd = 0.02)
# Plot balance over time if initial balance is $10,000
prices <- gains_prices(gains)
plot(prices)
# }
Run the code above in your browser using DataLab