R/makeTSP.R

In melaniehorn/GSignTest: Robust Tests for Regression-Parameters via Sign Depth

## makeTSP

makeTSP <- function(data, method, path, dist.method, dist.p, prec) {
  assert_character(path, len = 1, any.missing = FALSE)
  assert_choice(dist.method, choices = c("euclidean", "maximum", "manhattan",
    "canberra", "binary", "minkowski"))
  assert_numeric(dist.p, lower = 1, len = 1, any.missing = FALSE)
  assert_integerish(prec, lower = 0, any.missing = FALSE, len = 1)
  if(method == "nn") {
    tsp.method <- "repetitive_nn"
  } else {
    invisible(capture.output(concorde_path(path)))
    tsp.method <- "concorde"
  }
  tsp <- TSP(dist(data, method = dist.method, p = dist.p))
  tsp <- insert_dummy(tsp)
  tour <- suppressWarnings(solve_TSP(tsp, method = tsp.method, verbose = FALSE, precision = prec))
  tour_tmp <- cut_tour(tour, max(tour))
  names(tour_tmp) <- NULL
  return(tour_tmp)
}