R/create_population.R

In ExpDE: Modular Differential Evolution for Experimenting with Operators

#' Create population
#' 
#' Creates a new population for the ExpDE framework
#' 
#' @param popsize population size
#' @param probpars list of named problem parameters (see \code{\link{ExpDE}}).
#' 
#' @return A matrix containing the population for the ExpDE
#' 
#' @export

create_population <- function(popsize,      # population size
                              probpars)     # list of named problem parameters
{
  #Generate population of individuals within the standardized space x \in (0,1)
 
  
  # ========== Error catching and default value definitions
  assertthat::assert_that(assertthat::is.count(popsize),
                          is.list(probpars),
                          "xmax" %in% names(probpars))
  # ==========
   
  # get problem dimension
  prob.dim <- length(probpars$xmax)
  
  return (matrix(stats::runif(n = popsize * prob.dim), 
                 nrow = popsize))
}