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}