r - 如何将 foreach 用于循环内具有多个操作的复杂嵌套循环？

Question

我有这个代码 - 见下文。我想使用 R foreach 功能对其进行转换，因此我使用并行处理。

但是，我没有看到明显的方法，因为每个循环中有多个操作。

有什么想法吗？

   for (x in 1:test) {for (y in 1:TotalP) {
   payout[(svx[x,y]+1):Prow,y]<-0
   ifelse(svx[x,y]<=LapseSum[[y]],payout[(ts+svx[x,y]),y]<-(face_value[y]+payout[(ts+svx[x,y]),y]),0)
   lifetracker[(svx[x,y]+1):Prow,y]<-0}
   Cash_Flow<-cbind(Cash_Flow, apply(payout,1,sum))
   lifesum<-cbind(lifesum, apply(lifetracker,1,sum))
   coitracker<-cbind(coitracker, apply(payout,1,sumneg))
   payout<-coi
   payout<-payout+Purchase
   lifetracker<-lifetracker2}