3

で動作する関数がありlapplyますが、で試してみるとエラーが返されますmclapply。関数の引数は多変量 XTS です。以下にサンプルを示します。

library(quantmod)
library(doMC)
registerDoMC(4)

test <- function(x){
  return(mean(x))
}

myEnv <- new.env()
getSymbols(c("^GSPC", "^RUT"), env=myEnv)
data <- do.call(merge, c(eapply(myEnv, Ad), all=TRUE))

lapply(data, test)
mclapply(data, test)

lapply期待どおりの結果を返しますが、次をmclapply返します。

Error in `[.xts`(X, seq(i, length(X), by = cores)) : 
  subscript out of bounds

誰かがここで私を助けてくれますか? ありがとう。

セッション情報

R version 2.15.2 (2012-10-26)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8

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

other attached packages:
[1] doMC_1.2.5      multicore_0.1-7 iterators_1.0.6 foreach_1.4.0   quantmod_0.3-22 TTR_0.21-1      xts_0.9-0       zoo_1.7-9      
[9] Defaults_1.1-1 

loaded via a namespace (and not attached):
[1] codetools_0.2-8 grid_2.15.2     lattice_0.20-10 Rcpp_0.9.15     tools_2.15.2
4

1 に答える 1

3

xtsオブジェクトは次の意味で面白いです。

length(data)
# [1] 3010
data[3010]
# Error in `[.xts`(data, 3010) : subscript out of bounds

そして、それは好きでmclapplyはありません...

mclapply(as.list(data), test)ドキュメントには次のように書かれていますが、それが機能することがわかります。

X: ベクトル (アトミックまたはリスト) または式ベクトル。他のオブジェクト (分類されたオブジェクトを含む) は によって強制されas.listます。

考えてみてください...おそらく著者に言及する価値があります。

于 2012-12-22T04:14:44.117 に答える