Repair short cycles in a genetic algorithm

repair2.r

repair2 <- function(tour){
  
  #repair short cycles (DFJc)
  
  # iteriere über jeden Stop im Tourenplan 
  for(i in 1:length(tour)){
    # wenn der Nachfolger nicht das Depot ist (hier index = 1)
    # dann kann es Kurzzyklen geben
    if(tour[i]>1){ # not returning to depot
      
      # finde sukzezzive jeden nachfolger in der Tour --> Rekursiv
      r<-searchFor(tour, tour[i], i+1) #recursive call
      
      # Ein kurzzyklus liegt vor, wenn der Startknoten wieder erreicht wird.  
      # in diesem Fall ist r = FALSE
      if(r == FALSE){ #if shortcycle found, return current node to depot
        tour[i] <- 1
      }
    }
  }
  #elimiate cycles
  return (tour)
}