calculate fitnes of a tourplan in a genetic algorithm

calcTourplan.r

calcTourplan <- function(cij, tour){
  
  F <- 0
  
  # Speichere die Orte, die keinen Vorgänger haben --> Also vom Depot aus angesteuert werden
  hasPreDecessor <- rep(FALSE, nrow(locations)) 
  for(i in 1:ncol(tour)){
    
    F<- F + cij[i+1, tour[i]]
    hasPreDecessor[tour[i]] <- TRUE 
     
    
  }
  
  I <- which(hasPreDecessor==FALSE) 
  # Welche knoten sind mit dem Depot verbunden?
  
  if(length(I)>0){ 
    for(i in I){ 
      F<- F + cij[1, i] # i = 1 is depot
    }
  }
  return (F)
}