learn_windR_20180209.R

#####################################################################################################
## 1. w.wsd demo
#

require(WindR)

## Loading required package: WindR

require(quantmod)

## Loading required package: quantmod

## Loading required package: xts

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Version 0.4-0 included new data defaults. See ?getSymbols.

#user should start WindR firstly.
w.start(showmenu=FALSE);

## [1] "Welcome to use WIND Quant API for R (WindR)!"
## [1] "You can use w.menu to help yourself to create commands(WSD,WSS,WST,WSI,WSQ,...)!"
## [1] ""
## [1] "COPYRIGHT (C) 2016 WIND HONGHUI INFORMATION & TECHKNOLEWDGE CO., LTD. ALL RIGHTS RESERVED."
## [1] "IN NO CIRCUMSTANCE SHALL WIND BE RESPONSIBLE FOR ANY DAMAGES OR LOSSES CAUSED BY USING WIND QUANT API FOR R."

## $ErrorCode
## [1] 0
## 
## $ErrorMsg
## [1] "OK!"

code<-"600703.SH"
wsd_data<- w.wsd(code,"open,high,low,close,volume",Sys.time()-24*3600*100,Sys.time()-24*3600)
if(wsd_data$ErrorCode[[1]]!=0)
{
  error("w.wsd error")
}

data <-wsd_data$Data
ts <- xts(data[,-1],data[,1])
chartSeries(ts,TA=c(addVo(),addBBands(),addMACD()),up.col="red",dn.col="#00ffff",name=code)