My Github Pages
by Yeung Ka Ming, CFA
Bollinger Bands
library(quantmod)
library(TTR)
tickers <- c("^HSI","^GSPC")
getSymbols(Symbols = tickers,
src = "yahoo",
index.class = "POSIXct",
from = "1997-01-01")
## [1] "^HSI" "^GSPC"
bbands.HLC <- BBands(na.omit(HSI[,c("HSI.High","HSI.Low","HSI.Close")]))
plot(bbands.HLC)
plot(bbands.HLC["2020/2022"])
plot(bbands.HLC["2020/2022"][,1:3])
plot(bbands.HLC["2020/2022"][,4])