R/rselect.R

In caRamel: Automatic Calibration by Evolutionary Multi Objective Algorithm

#' Selection of n points
#'
#' performs a selection of n points in facp
#'
#' @param n : number of points to select
#' @param facp : vector of initial points
#' @return ix : ranks of selected points (vector of dimension n)
#'
#' @examples
#' # Definition of the parameters
#' n <- 5
#' facp <- runif(30)
#' # Call the function
#' res <- rselect(n, facp)
#'
#' @author Fabrice Zaoui

rselect <- function(n, facp) {

  if (sum(facp) > 0 & n > 0) {
    facp1 <- facp / sum(facp)
    Fc <- cumsum(facp1)

    ix <- matrix(0, nrow = n, ncol = 1)

    for (i in 1:n) {
      f <- runif(1)
      b <- which(Fc > f)
      ix[i] <- b[1]
    }
  } else{
    ix <- NULL
  }
  return(ix)
}