2017年3月7日
模型
摘要： 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"... 阅读全文
posted @ 2017-03-07 17:38 泡面 @ 幸福 阅读(184) 评论(0) 推荐(0) 编辑
本地读取通达信数据
摘要： #本地读取通达信数据 readTDXB <- function(stockName) { tdx <-read.csv(file = paste(stockName,".csv",sep = ""),header = FALSE,sep = ",",skip = 2)[,1:6] names(tdx) <- c("DATETIME","Open","High","Low","Close"... 阅读全文
posted @ 2017-03-07 00:39 泡面 @ 幸福 阅读(2873) 评论(0) 推荐(0) 编辑