Quantmod R:specifyModel()错误:两次尝试后NG3(xts对象)下载失败

问题描述 投票:1回答:1
 > sessionInfo()
R version 3.5.1 (2018-07-02)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Linux Mint 18.3

Matrix products: default
BLAS: /usr/lib/libblas/libblas.so.3.6.0
LAPACK: /usr/lib/lapack/liblapack.so.3.6.0

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods  
[7] base     

other attached packages:
[1] lubridate_1.7.4 quantmod_0.4-13 TTR_0.23-4      xts_0.11-2     
[5] zoo_1.8-4      

loaded via a namespace (and not attached):
 [1] compiler_3.5.1  magrittr_1.5    tools_3.5.1     curl_3.2       
 [5] yaml_2.2.0      Rcpp_1.0.0      stringi_1.2.4   grid_3.5.1     
 [9] stringr_1.3.1   lattice_0.20-38
> 

我运行这段代码:

 Lesson4 <- function()
 {
  # Dec 9 2018 - next steps to learn in order to 
 # perform backtest
 #steps .5?? specifymodel() function
 #steps 1 buildmodel() function
 #steps 2 trademodel() function
 #steps 3 call functions to get model performance 
 #details

library("lubridate")
library("quantmod")
library(xts)
setwd("/home/gabe/Learn")

NG2 <- read.csv("NGdec18.csv",
               stringsAsFactors = FALSE,
               header = FALSE)

dates <- as.character(NG2$V1)
dates2 <- as.POSIXct(dates, format = "%Y%m%d %H:%M:%S")
NG2[, 1] <- dates2

   names(NG2)[2]  <- paste("NG3.Open")
   names(NG2)[3]  <- paste("NG3.High")
   names(NG2)[4]  <- paste("NG3.Low")
   names(NG2)[5]  <- paste("NG3.Close")
   names(NG2)[6]  <- paste("NG3.Volume")
   NG2 <- subset(NG2,  NG2$V1 > "2018-10-01")

   NG3 <- xts(NG2[-1], order.by = NG2[, 1])

   print(c("class=", class(NG3)))
   print(NG3[1:2,])
   print(head(OpHi(NG3)))
   print(head(OpCl(NG3)))
   specifyModel(Next(OpCl(NG3)) ~ OpHi(NG3))


 }

当我使用来自雅虎的GE股票价格的相同代码时它工作正常...但是当我使用来自csv文件的这个日内数据时它失败了。但是我检查了数据“NG3”是一个xts文件。我也仔细命名列,因为这是一个问题。我也在使用我能想到的最简单的小模型,似乎傻模型的每个部分都是合法的对象。你可以在输出中看到:

> Lesson4()
[1] "class=" "xts"    "zoo"   

 NG3.Open NG3.High NG3.Low NG3.Close NG3.Volume
2018-10-01 00:10:00    3.104    3.107   3.104     3.107         17
2018-10-01 00:20:00    3.107    3.107   3.107     3.107          5
                        OpHi.NG3
      2018-10-01 00:10:00 0.0009664948
      2018-10-01 00:20:00 0.0000000000
      2018-10-01 00:30:00 0.0000000000
      2018-10-01 00:40:00 0.0000000000
      2018-10-01 00:50:00 0.0000000000
       2018-10-01 01:00:00 0.0003226847
                         OpCl.NG3
       2018-10-01 00:10:00  0.0009664948
       2018-10-01 00:20:00  0.0000000000
       2018-10-01 00:30:00 -0.0016097875
       2018-10-01 00:40:00  0.0000000000
       2018-10-01 00:50:00  0.0000000000
       2018-10-01 01:00:00  0.0003226847
    Warning: NG3 download failed; trying again.
     Show Traceback

     Rerun with Debug
     Error: NG3 download failed after two attempts. Error 
    message:
    HTTP error 404. 

我甚至不需要互联网连接...为什么它告诉我HTTP错误?更重要的是......任何人都可以帮助我让这个specifymodel()功能工作没有这个错误?

这是追溯:

9.
stop(Symbols.name, " download failed after two attempts. Error", 
    " message:\n", attr(dl, "condition")$message, call. = FALSE) 
8.
getSymbols.yahoo(Symbols = "NG3", env = <environment>, verbose = FALSE, 
    warnings = TRUE, auto.assign = TRUE) 
7.
do.call(paste("getSymbols.", symbol.source, sep = ""), list(Symbols = current.symbols, 
    env = env, verbose = verbose, warnings = warnings, auto.assign = auto.assign, 
    ...)) 
6.
getSymbols(V, env = env) 
5.
FUN(X[[i]], ...) 
4.
lapply(vars, function(V) {
    if (!exists(V)) {
        getSymbols(V, env = env)
    } ... 
3.
getModelData(new.quantmod, na.rm = na.rm) 
2.
specifyModel(Next(OpCl(NG3)) ~ OpHi(NG3)) at ghtest.R#170
1.
Lesson4() 

这里也是原始csv文件NGdec18.csv的head():

                 V1    V2    V3    V4    V5  V6
1 20180924  18:00:00 3.102 3.106 3.102 3.104 118
2 20180924  18:10:00 3.102 3.103 3.101 3.103   6
3 20180924  18:20:00 3.103 3.103 3.103 3.103   0
4 20180924  18:30:00 3.103 3.103 3.103 3.103   0
5 20180924  18:40:00 3.103 3.103 3.103 3.103   0
6 20180924  18:50:00 3.105 3.105 3.105 3.105   1

csv文件可以在这里下载:http://www.sharecsv.com/s/53f6728024686c49d2fc81273a7f7464/NGdec18.csv

  Lesson4 <- function()
 {

     library("lubridate")
     library("quantmod")
     library(xts)
     setwd("/home/gabe/Learn")

     NG2 <- read.csv("NGdec18.csv",
                     stringsAsFactors = FALSE,
                     header = FALSE)

     dates <- as.character(NG2$V1)
     dates2 <- as.POSIXct(dates, format = "%Y%m%d %H:%M:%S")
     NG2[, 1] <- dates2

     names(NG2)[2]  <- paste("NG3.Open")
     names(NG2)[3]  <- paste("NG3.High")
     names(NG2)[4]  <- paste("NG3.Low")
     names(NG2)[5]  <- paste("NG3.Close")
     names(NG2)[6]  <- paste("NG3.Volume")
  #  setSymbolLookup("symbol.lookup" = FALSE)
    # options("getSymbols.sources" = "csv")
     setSymbolLookup(NG3='csv')
     NG3 <- xts(NG2[-1], order.by = NG2[, 1])

     print(c("class=", class(NG3)))
     print(NG3[1:2,])
     print(head(OpHi(NG3)))
     print(head(OpCl(NG3)))
     specifyModel(Next(OpCl(NG3)) ~ OpHi(NG3))
 }

我尝试了你的建议和我自己的一个......它摆脱了'雅虎'源问题,但仍然得到这个错误:

Error in `dimnames<-.xts`(`*tmp*`, value = dn) : 
 length of 'dimnames' [2] not equal to array extent 

跟踪:

11.
`dimnames<-.xts`(`*tmp*`, value = dn) 
10.
`dimnames<-`(`*tmp*`, value = dn) 
9.
`colnames<-`(`*tmp*`, value = paste(toupper(gsub("\\^", "", Symbols[[i]])), 
    col.names, sep = ".")) 
8.
getSymbols.csv(Symbols = "NG3", env = <environment>, verbose = FALSE, 
    warnings = TRUE, auto.assign = TRUE) 
7.
do.call(paste("getSymbols.", symbol.source, sep = ""), list(Symbols = current.symbols, 
    env = env, verbose = verbose, warnings = warnings, auto.assign = auto.assign, 
    ...)) 
6.
getSymbols(V, env = env) 
5.
FUN(X[[i]], ...) 
4.
lapply(vars, function(V) {
    if (!exists(V)) {
        getSymbols(V, env = env)
    } ... 
3.
getModelData(new.quantmod, na.rm = na.rm) 
2.
specifyModel(Next(OpCl(NG3)) ~ OpHi(NG3)) at ghtest.R#166
1.
Lesson4() 
r quantmod
1个回答
0
投票

这是猜测,因为您的代码在运行R 3.5.1的Linux机器上运行时没有错误,这里是sessioninfo()的操作系统和软件包的一部分:

sessionInfo()
R version 3.5.1 (2018-07-02)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 18.04.1 LTS

Matrix products: default
BLAS: /usr/lib/x86_64-linux-gnu/openblas/libblas.so.3
LAPACK: /usr/lib/x86_64-linux-gnu/libopenblasp-r0.2.20.so
   #omitted locales
other attached packages:
[1] lubridate_1.7.4 quantmod_0.4-13 TTR_0.23-4      xts_0.11-2      zoo_1.8-4      

loaded via a namespace (and not attached):
 [1] compiler_3.5.1  magrittr_1.5    tools_3.5.1     curl_3.2        yaml_2.2.0     
 [6] Rcpp_1.0.0      stringi_1.2.4   grid_3.5.1      stringr_1.3.1   lattice_0.20-38

所以我的猜测是你需要将symbol.lookup的quantmod选项设置为FALSE。我无法测试我的理论,因为我的系统使用您的代码成功,但您可以尝试:

setSymbolLookup("symbol.lookup" = FALSE)

目标是使符号查找默认为不使用“yahoo”。至少它没有导致错误或打破你的Lesson4代码。不可否认,这不是一个非常有趣的结果:

quantmod object:        Build date:   

Model Specified: 
     Next(OpCl(NG3)) ~ OpHi(NG3) 

Model Target:  Next.OpCl.NG3         Product:  NG3 
Model Inputs:   

Fitted Model: 

    None Fitted

在查看getSymbols的代码后,我还有另一个想法:

options("getSymbols.sources" = "csv")
getOption("getSymbols.sources")
[1] "csv"
© www.soinside.com 2019 - 2024. All rights reserved.