# Rank RSI across all stocks
data("sample_prices_weekly")
rsi <- calc_rsi(sample_prices_weekly, 14)
rsi_ranks <- calc_relative_strength_rank(rsi, method = "percentile")
# Find relatively overbought (top 10%)
relative_overbought <- filter_above(rsi_ranks, 90)
Run the code above in your browser using DataLab