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))
edist <- as.dist(as.matrix(eurodist))
order_tsp(edist)
Run the code above in your browser using DataLab