我有这个代码 - 见下文。我想使用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}