R/insmut.R

In adana: Adaptive Nature-Inspired Algorithms for Hybrid Genetic Optimization

Defines functions insmut

Documented in insmut

# Insert mutation
insmut = function(y, ...){
  n = length(y)
  v = sample(1:n, 1)
  k = sample(1:(n-1), 1)
  idx = c(setdiff(1:k,v), v, setdiff((k+1):n,v))
  y <- y[idx]
  return(list(mutant=y, mutgen=v, mutpoint=k))
}

Try the adana package in your browser