Question

我正在使用吸墨纸包来进行回测，并使用foreach来加快速度。我遇到了一个错误，即吸墨器找到具有相同名称的投资组合，即使它们应该在函数开始时被删除。这是重现错误的示例代码

require('foreach')
require('doSNOW')
require('xts')
require('blotter')

backtestFunction <- function() {

  currency("USD")
  stock("AAPL", currency="USD", multiplier=1)
  Sys.setenv(TZ="US/Eastern")
  verbose = FALSE

  try(rm("account.Snazzy","portfolio.Snazzy",pos=.blotter),silent=TRUE)
  initPortf("Snazzy", "AAPL", initDate="2014-01-01", currency="USD")
  initAcct("Snazzy", portfolios="Snazzy", initDate="2014-01-01", initEq=1000, currency="USD")

  return (TRUE)
}

cl <- snow::makeCluster(8, type = "SOCK")
registerDoSNOW(cl)

results <- foreach(i=1:100, .combine=rbind, .packages=c('xts','blotter')) %dopar% {
  return (backtestFunction())
}
snow::stopCluster(cl)

这是错误

Error in { : 
  task 9 failed - "Portfolio Snazzy already exists, use updatePortf() or addPortfInstr() to update it."

我知道投资组合和帐户对象存储在.blotter环境中，但是

不会预先在新的R会话中产生每个工作人员，以便不会发生冲突吗？
为什么try(rm("account.Snazzy","portfolio.Snazzy",pos=.blotter),silent=TRUE)无效？
我怎样才能让foreach在这里使用吸墨纸？

如果重要，我正在使用R 3.0.2，在Windows上运行RStudio。我在标签中包含了quantstrat，因为它们通常一起使用，因此很可能是经验丰富的quantstrat用户知道修复。感谢

Answer 1

问题在于＆＃34; .blotter＆＃34;正在自动导出给工人，但是要做到现在＆＃34;出口＆＃34;环境，不到全球环境。这并不会混淆吸墨纸包装，但它确实会阻止你的吸尘器包装。删除＆＃34; account.Snazzy＆＃34;和＆＃34; portfolio.Snazzy＆＃34;来自真实＆＃34; .blotter＆＃34;环境。

一种解决方案是将.noexport=".blotter"添加到foreach中。另一种解决方案是在执行＆＃34; rm＆＃34;：

时更明确地指定环境

try(rm("account.Snazzy","portfolio.Snazzy",pos=.GlobalEnv$.blotter),
    silent=TRUE)

doSNOW不会为每个任务产生一个工作者，因为这可能会很慢。即使对于本地工作者来说，与执行任务的时间相比，启动R会话的时间也很长，尤其是在使用ssh的群集上。更重要的是，如果工作人员执行多个任务，您可以向他们发送一次大型数据集，并将这些数据重复用于许多任务，从而摊销通信成本。

R：使用带有吸墨纸的foreach，投资组合已存在错误

1 个答案: