Re-orients a path to be weight-decreasing — best_orientation • PairViz

Re-orients a path/cycle, preserving adjacencies so that weights tend to decrease. From specifies the starting point, for cycles only.

Usage

best_orientation(path, d, cycle=FALSE, path_dir= path_cor, from=NULL)

Arguments

path: A vector giving a hamiltonian.
d: A dist, used to provide edge weights.
cycle: If TRUE, the path is interpreted as a closed path.
path_dir: A function used to evaluate a path start and orientation
from: Sepcifies the starting point, for cycles only.

References

Author

C.B. Hurley and R.W. Oldford

See also

hpaths, eulerian.

Examples


require(PairViz)

rdist <- function(n) {
  d <- matrix(0,n,n)
  d[lower.tri(d)] <- runif(n*(n-1)/2)
  return(as.dist(d))
  }
r <- rdist(7)
best_orientation(1:7,r) 
#> [1] 1 2 3 4 5 6 7
best_orientation(1:7,r,cycle=TRUE) 
#> [1] 4 3 2 1 7 6 5