library(quantmod)
## Loading required package: xts
## Loading required package: zoo
##
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
## Loading required package: TTR
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
library(TTR)
# Week 1: QQQ
getSymbols("QQQ", from = "2025-03-01", to = "2025-05-14")
## [1] "QQQ"
chartSeries(QQQ, TA = "addSMA(20); addSMA(50); addRSI()", theme = chartTheme("white"))
Trade Summary:
Entry: May 8 @ ~$431 Exit: May 13 @ ~$440 Result: +2.1% gain Pattern: Bullish flag breakout Indicators: 20-SMA/50-SMA crossover, RSI rising, MACD bullish
# Week 2: GLD
getSymbols("GLD", from = "2025-03-01", to = "2025-05-21")
## [1] "GLD"
chartSeries(GLD, TA = "addSMA(20); addSMA(50); addRSI()", theme = chartTheme("white"))
Trade Summary:
Entry: May 15 @ ~$181.20 Exit: May 20 @ ~$184.30 Result: +1.7% gain Pattern: Reversal after oversold RSI Indicators: RSI rebound, bullish engulfing candle
# Week 3: VNQ
getSymbols("VNQ", from = "2025-03-01", to = "2025-05-28")
## [1] "VNQ"
chartSeries(VNQ, TA = "addSMA(20); addSMA(50); addRSI()", theme = chartTheme("white"))
Trade Summary:
Entry: May 22 @ ~$84.00 Exit: May 27 @ ~$86.20 Result: +2.6% gain Pattern: Bullish reversal and trend continuation Indicators: RSI moving from 48 to 58, SMA support
# Week 4: TLT
getSymbols("TLT", from = "2025-03-01", to = "2025-06-04")
## [1] "TLT"
chartSeries(TLT, TA = "addSMA(20); addSMA(50); addRSI()", theme = chartTheme("white"))
Trade Summary:
Entry: May 29 (Short) @ ~$110.50 Exit: June 3 @ ~$107.80 Result: +2.45% gain (short) Pattern: Head and shoulders breakdown Indicators: RSI weakening, bearish MACD
# Week 5: EUR/USD Forex (via Oanda)
eurusd <- getSymbols("EUR/USD", src = "oanda", from = "2025-03-01", to = "2025-06-10", auto.assign = FALSE)
chartSeries(eurusd, TA = "addSMA(20); addSMA(50); addRSI()", theme = chartTheme("white"))
Trade Summary:
Entry: June 5 @ ~1.0950 Exit: June 9 @ ~1.1035 Result: +0.77% gain Pattern: Inverse head and shoulders Indicators: SMA crossover, RSI from 50 to 60