R/vorobVol_optim_parallel2.R

In KrigInv: Kriging-Based Inversion for Deterministic and Noisy Computer Experiments

vorobVol_optim_parallel2 <- function(x,other.points, integration.points,integration.weights=NULL,
                                     intpoints.oldmean,intpoints.oldsd,precalc.data,
                                     model, T, new.noise.var=NULL,batchsize,alpha,current.crit,typeEx=">"){

  x.complete <- c(x,other.points)
  return(vorobVol_optim_parallel(
    x = x.complete, integration.points = integration.points, integration.weights = integration.weights,
    intpoints.oldmean = intpoints.oldmean,intpoints.oldsd = intpoints.oldsd,precalc.data = precalc.data,
    model = model,T = T,new.noise.var = new.noise.var,batchsize=batchsize,alpha=alpha,
    current.crit=current.crit,typeEx=typeEx
  )
  )

}