R/operator.generator.random.permutation.R

In jakobbossek/ecr: Evolutionary Computing in R

#' @title
#' Generates a generator object for the initial population.
#'
#' @description
#' This generator generates a population of permutations.
#'
#' @return [\code{ecr_operator}]
#' @export
setupPermutationGenerator = function() {
  generatePermutationPopulation = function(size, task, control) {
    par.set = task$par.set
    if (getParamNr(par.set) > 1L) {
      stopf("The Permutation Generator works only with one parameter(-vector).")
    }

    n.params = sum(getParamLengths(par.set))
    population = list()
    for(i in seq(size)) {
      population[[i]] = sample(1:n.params)
    }
    makePopulation(population)
  }

  makeGenerator(
    generator = generatePermutationPopulation,
    name = "Permutation generator",
    description = "Generates random permutations.",
    supported = c("permutation")
  )
}