R/normalize.R

In vguillemot/csvd: Constrained Singular Value Decomposition

#' Normalize a vector.
#'
#' @param u A vector of numerics
#' @return The normalized version of \eqn{u}.
#' @examples 
#' normalize( c(0, 0, -0.5, 0.5) )
#' @export
normalize <- function(u) {
  normu <- norm2(u)
  if (normu==0) return(u)
  return(u/normu)
}