r - 'mclapply' 用于 Windows

Question

我正在使用 https://github.com/mplatzer/BTYDplus/blob/master/R/pareto-nbd-mcmc.r 中给出的 BTYD plus 代码.此代码使用 MCMC 技术来估计 BTYD 模型的 Pareto/NBD 参数。

所以，如果你看到代码的第 224-228 行，它使用了函数“mclapply”——我发现它只能在 Linux 或 MAC 上运行。我正在 Windows 机器上工作，需要转换这部分代码，以便我也可以在 Windows 机器上执行它。那么，任何人都可以帮助我处理这个特定的代码，或者可以对如何在 Windows 上使用“mclapply”给出一个大致的想法？

Answer 1

使用 parLapply :

Sys.info()["sysname"]
#  sysname 
#"Windows"

library(parallel)
cl <- makeCluster(getOption("cl.cores", 2))
l <- list(1, 2)
system.time(
parLapply(cl, l, function(x) {
  Sys.sleep(10)
  })
)
#user  system elapsed 
#0       0      10 

stopCluster(cl)

如果您的任务包括随机数生成，您可能需要查看 doRNG 包以获取可重复性。