R/make_unit_vector.R

In Middleton-Lab/MuscleTernary: Plot Muscle Resultants in Ternary Space

#' Create a unit vector from a given vector
#'
#' @param x Vector of length 3.
#'
#' @return A normalized unit vector of length 3
#'
#' @export
#'
make_unit_vector <- function(x) {
  if (length(x) != 3){
    stop("Vector of length 3 required.")
  }

  return(x / sqrt((x[1]) ^ 2 + (x[2]) ^ 2 + (x[3]) ^ 2))
}