Recombine Tours within a Genetic Algorithm

recombine.r

recombine<- function(tours, f, m, recomb){ 
  # tours = Genpool
  # f = father index
  # m = mother index
  # recomb = Predefined Recombination vector
  
  t.f <- tours[f,] #get tourplan father
  t.m <- tours[m,] #get tourplan mother
  
  t.c <- t.f # use father as template
  
  # Recombing
  for(i in 1:ncol(recomb)){
    if(recomb[i] == 1) {
      t.c[i] <- t.m[i]
    }
  }
  # prepare Return
  t.c <- matrix(t.c, nrow=1)
  colnames(t.c)  <- colnames(tours)
  return (t.c)
}