TTR 패키지를 이용한 Donchian Channel 그리기

TTR 패키지를 이용한 Donchian Channel 그리기

library(xts)
library(quantmod)
library(TTR)


getSymbols("TQQQ")

chartSeries(TQQQ,
            type="candlesticks",
            subset='2018/',
            theme=chartTheme('white'))

dc <-lag(DonchianChannel(TQQQ[,c("TQQQ.High","TQQQ.Low")],n = 8))

plot(addTA(dc$high, on =1, col='red'))
plot(addTA(dc$low, on =1, col='blue'))