tspData <- read.csv( D:\\weka\\hw\\TSP.csv , header = T, sep = , ) #tspData <- `colnames<-`(tspData,c(1:8)) D <- as.matrix(tspData) tourLength <- function(tour, distMatrix) { tour <- c(tour, tour[1]) route <- embed(tour, 2)[, 2:1] sum(distMatrix[route]) } tpsFitness <- function(tour, ...) 1/tourLength(tour, ...) GA.fit <- ga(type = permutation , fitness = tpsFitness, distMatrix = tspData, min = 1, max = 8, popSize = 10, maxiter = 500, run = 100, pmutation = 0.2, monitor = NULL) summary(GA.fit)

ga-r-console.txt
ga.txt

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．