TOUR(1:10)
## calculate a tour
data("USCA50")
tour <- solve_TSP(USCA50)
tour
## get tour length directly from tour
tour_length(tour)
## get permutation vector
as.integer(tour)
## show labels
labels(tour)
Run the code above in your browser using DataLab