# NOT RUN {
require(PairViz)
rdist <- function(n) {
d <- matrix(0,n,n)
d[lower.tri(d)] <- runif(n*(n-1)/2)
return(as.dist(d))
}
order_tsp(rdist(7))
# }
# NOT RUN {
<!-- %order_tsp(eurodist) fails, because tour_length(TSP(eurodist)) fails, mysteriously! -->
# }
# NOT RUN {
edist <- as.dist(as.matrix(eurodist))
order_tsp(edist)
# }
Run the code above in your browser using DataLab