R/normalize.R

Defines functions normalize

normalize <- function(alpha, type){
  anorm <- norm(matrix(alpha, ncol = 1), type)
  if (!(is.na(anorm) || all(alpha == 0))) alpha <- alpha / anorm
  attr(alpha, "norm") <- anorm
  return(alpha)
}
PierreMasselot/cgaim documentation built on March 5, 2025, 10:18 p.m.