R/normM.R

In multigroup: Multigroup Data Analysis

#' @title Normalize function for a matrix
#' 
#' @description 
#' To calculate normmalize of a matrix
#' 
#' @param X a numeric matrix
#' @return a matrix with norm 1
#' @export
#' @keywords internal
normM <- function(X){
  
  if (is.data.frame(X) == TRUE) {
    X = as.matrix(X)
  }
  
  normX = sqrt(sum(diag(t(X) %*% X)))
  Y     = X / normX 
  return(Y)
}