如何在循环内使用多个动作的复杂嵌套循环使用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}