R/operator.mutator.swap.R

In jakobbossek/ecr: Evolutionary Computing in R

#' @title
#' Generator for the Swap mutation operator.
#'
#' @description
#' Chooses two positions at random and swaps the genes.
#'
#' @return [\code{ecr_mutator}]
#' @family mutators
#' @export
setupSwapMutator = function() {
  mutator = function(ind, task, control) {
    n.params = length(ind)
    pos = sample(1:n.params, size = 2)
    pos1 = pos[1]
    pos2 = pos[2]
    #catf("Positions: %i, %i", pos1, pos2)
    tmp = ind[pos1]
    ind[pos1] = ind[pos2]
    ind[pos2] = tmp
    return(ind)
  }

  makeMutator(
    mutator = mutator,
    name = "Swap mutator",
    description = "Swaps two alleles",
    supported = "permutation"
  )
}