噓~

R introduction doc

利用libary quantmod  reference

ex: 台積電ADR

library(quantmod)  #把library 下載進來

getSymbols("TSM")  #把台積得數據load進來,也可以指定source

TSM # show 一下股價

            TSM.Open  TSM.High   TSM.Low TSM.Close TSM.Volume TSM.Adjusted
2007-01-03 11.110004 11.180002 10.899999 10.969997   12438700     7.702287
2007-01-04 10.979997 11.039996 10.790001 10.969997   17678600     7.702287

chartSeries(TSM)

畫收盤價月線 與年線

Ma_20 <- runMean(TSM[,4],n=20)

addTA(Ma_20,on=1,col="blue")

Ma_240 <- runMean(TSM[,4],n=240)

addTA(Ma_240,on=1,col="red")

ex2: 台積2330

getSymbols("2330.TW")

TSMC <- get("2330.TW")  # 把data 轉成字串

chartSeries(TSMC)
Ma_20 <- runMean(TSMC[,4],n=20)
Ma_240 <- runMean(TSMC[,4],n=240)
addTA(Ma_240,on=1,col="red")
addTA(Ma_20,on=1,col="blue")