統計ソフトRを使用して株価チャートを簡単に作成(4)

ようやくチャートが描ける準備が整ったので分析に入ります。

まずは自分で作成した計算式で作成した値をチャートに書いてみます

library(RFinanceYJ)
library(quantmod)
stockCode<-"6758.t"
today<-Sys.Date()
sinceDate<-today-100 #100日分
stockData<-quoteStockTsData(stockCode,since=sinceDate)
colnames(stockData)<-c("Date","Open","High","Low","Close","Volume")
stockData.zoo<-read.zoo(stockData)
candleChart(stockData.zoo,theme="white")
#とりあえず平均値をチャート領域に書いてみる
mydata<-data.frame(Date=stockData$Date,Close=mean(stockData$Close))
mydata.zoo<-read.zoo(mydata)
addTA(mydata.zoo,on=1,col="red")