# Load 10 years of daily closing prices for hypothetical stock ZZZ
data(zzz)
# Overall growth rate is about 0.846, or 84.6%
prices.rate(zzz)
# Average annual growth is about 6.3%
prices.rate(zzz, xday.rate = 251)
# Calculate ratio of closing prices for each day relative to the previous day
daily.ratios <- ratios(zzz)
# Figure out final balance if we had invested $10,000 on day 1
final.balance(daily.ratios)
# Calculate Sharpe ratio
sharpe(prices = zzz)
# Calculate Sortino ratio
sortino(prices = zzz)
# Calculate maximum drawdown
mdd(prices = zzz)
# Calculate risk-return ratio
rrr(prices = zzz)
Run the code above in your browser using DataLab