0

我有一个名为“Scenarios”的大型 ffdf，我正在从 NGA 包中应用一个函数。我已经在使用 mychunks 来尝试加快速度，但它仍然很慢。我可以使用 Foreach 包进行并行处理吗？我目前的代码如下所示：

PGA = (rep(NA,Nevs))
mychunks <- chunk(Scenarios)
for(myblock in mychunks){
  ScenariosINRAM <- Scenarios[myblock, ]
  PGA[seq(min(myblock), max(myblock))] <- mapply(Sa.ba,ScenariosINRAM$Magnitude,     ScenariosINRAM$Rjb, Vs30, ScenariosINRAM$Epsilon,T=0,rake=NA, U=0, SS=1, NS=0, RS=0, AB11=1)
 }

我在 Foreach 上没有取得太大的成功，我需要加快速度，任何帮助将不胜感激。谢谢

4

0 回答 0