# Create a backtest result to use
data(sample_prices_weekly)
momentum <- calc_momentum(sample_prices_weekly, lookback = 12)
selected <- filter_top_n(momentum, n = 10)
weights <- weight_equally(selected)
result <- run_backtest(sample_prices_weekly, weights)
# Calculate metrics
metrics <- backtest_metrics(result)
print(metrics$sharpe_ratio)
Run the code above in your browser using DataLab