R/infillExpectedImprovement.R

In SPOT: Sequential Parameter Optimization Toolbox

#' @title  infillExpectedImprovement
#' 
#' @description  Compute the negative logarithm of the Expected Improvement of a set of candidate solutions.
#' Based on mean and standard deviation of a candidate solution,
#' this estimates the expectation of improvement. Improvement
#' considers the amount by which the best known value (best observed value)
#' is exceeded by the candidates.
#' Expected Improvement infill criterion that can be passed to control$modelControl$infillCriterion in order to be used during the optimization in SPOT.
#' Parameters dont have to be specified as this function is ment to be internally by SPOT.
#' 
#' @param predictionList The results of a predict.model call
#' @param model The surrogate model which was used for the prediction
#'
#' @return numeric vector, expected improvement results
#' @export
#'
#' @examples
#' \donttest{
#' spot(,funSphere,c(-2,-3),c(1,2), control = 
#'     list(infillCriterion = infillExpectedImprovement, modelControl = list(target = c("y","s"))))
#' }     
infillExpectedImprovement <- function(predictionList, model){
    mean <- predictionList$y
    sd <- predictionList$s
    modelMin <- min(model$y)
    return(expectedImprovement(mean,sd,modelMin))
}