R/ply_shift_coord.R

In HaoLi111/rMathModeling: R Functional Programming Solution for Mathematical Modeling 4 Ed

#ply_shift_coord
ply_shift_coord = function(fListPly,iter,
                           init,
                           optimFunc = optim_midp,nply_iter = 5,...){
  flow = init
  l = length(iter)
  f= function(var,fListPly,
                      flow,
                      flowInd){
    flow[[flowInd]] = var
    fListPly(flow)
  }
  #if(!l==length(formals(f))) warning('length of list unequal to the no. of func')
  for(i in 1:nply_iter){
    for(j in 1:l){
      flowIter = iter[[j]]
      opt = optimFunc(f,init1 = flowIter,flow=flow,flowInd = j,
                      fListPly = fListPly,...)
      flow[[j]] = opt$dep
    }
  }
  opt = list(opt = opt$opt,dep = flow)
  return(opt)
}