# Randomly generate daily stock gains over a 5-year period
stockgains <- rnorm(251*5, 1.001, 0.02)
# Create vector of balances if initial balance is $10,000
bals <- balances(stockgains)
# Plot results
plot(bals)
Run the code above in your browser using DataLab