Repair child according to cond 1&2 in a #Genetic Algortihm

repair1.r

repair1 <- function(tour){ 
  #cond 1/2 once arrive/leave
  
  #substitute multiple indices by 0(1) --> ALL!
  #getunique stops
  y<-unique(tour) 
  y<- y[y!=1]  # 1 --> 0 # elminate Depot-Stops
  
  #iterate over potentail multiple Stop indices
  for(i in y){
    # which stops have this index?
    x <- which(tour == i)
    
    if(length(x)>1){ 
      # if i is multiple stop       
      tour[x] <- 1 # return to depot
    }
  }
  # Return 
  return (tour)
}