# NOT RUN {
# Create vector of daily gains for a hypothetical stock
daily.gains <- c(-0.02, -0.01, 0.01, 0.02, 0.01)
# Overall growth is 0.95%
gains_rate(daily.gains)
# Average daily growth is 0.19%
gains_rate(daily.gains, 1)
# Corresponds to 61.0% annual growth
gains_rate(daily.gains, 252)
# }
Run the code above in your browser using DataLab