data("iris")
## create TSP
tsp <- TSP(dist(iris[1:4]))
## reorder
tour1 <- solve_TSP(tsp)
tour2 <- solve_TSP(tsp, method = "nearest_insertion")
tour3 <- solve_TSP(tsp, method = "greedy", control = list(start = 1))
tour1
tour2
tour3
## use the external solver which has to be installed separately
tour4 <- solve_TSP(tsp, method = "concorde")
tour4
Run the code above in your browser using DataLab