R/orientate.R

Defines functions orientate

orientate <- function(bx, by) {
  tmp <- (bx < 0 & by < 0) | (bx < 0 & by > 0)
  bx <- abs(bx)
  by[tmp] <- -by[tmp]
  return(list(bx = bx, by = by))
}
cnfoley/mrclust documentation built on Oct. 20, 2021, 2:10 p.m.