模型 

library(quantmod)
getSymbols("IBM")
head(IBM)
chartSeries(IBM)
chartSeries(IBM,subset = '2015-12::2016-08',theme = "white",TA = "addVo();addBBands();addCCI();addADX()")
SSEC <- getSymbols("000001.SS",auto.assign = FALSE, from = '2010-10-10')
dat <- specifyModel(Next(OpCl(IBM)) ~ Cl(SSEC))
dat
head(modelData(dat))
model <- buildModel(dat,method = 'lm',training.per = c('2015-08-01','2016-08-01'))
summary(model)
tradeModel(model)

　　

posted @ 2017-03-07 17:38  泡面 @ 幸福  阅读(185)  评论(0)  编辑  收藏  举报