datasci-info / beatrader Goto Github PK

> getSymbols("^VIX")
[1] "VIX"
> Xt <- VIX
> BBands(Xt)
Error in BBands(Xt) : 
  Price series must be either High-Low-Close, or Close/univariate.

Xt = getSymbols("^VIX",auto.assign = F)

> rptFiles = apply(dnFilesDF,1,function(xx){
+   do.call(download.file,as.list(xx))
+   unzip(xx[2], exdir = sprintf("./%s/",TAIFEX_RPT_DIR))
+ })
trying URL 'http://www.taifex.com.tw/Dailydownload_eng/Daily_2015_11_13.zip'
Content type 'application/x-zip-compressed' length 540193 bytes (527 KB)
downloaded 527 KB

 Show Traceback

 Rerun with Debug
 Error in unzip(xx[2], exdir = sprintf("./%s/", TAIFEX_RPT_DIR)) : 
  'exdir' does not exist

Xt = getSymbols("2330.TW",auto.assign = F)
chartSeries(Xt)

> Xt = getSymbols("2330.TW",auto.assign = F)
Warning messages:
1: In if (auto.assign) assign(Symbols[[i]], fr, env) :
  條件的長度 > 1，因此只能用其第一元素
2: In if (auto.assign) return(Symbols) :
  條件的長度 > 1，因此只能用其第一元素
3: In if (!auto.assign) return(symbols.returned) :
  條件的長度 > 1，因此只能用其第一元素
4: In if (auto.assign) { : 條件的長度 > 1，因此只能用其第一元素
> Xt
[1] "2330.TW"

# install.packages("fpc")
library("fpc")