R/Normalise_S.R

In phytoclass: Estimate Chla Concentrations of Phytoplankton Groups

#' This function normalises each column in S to row sum
#' 
#'
#' @keywords internal
#'
#' @param S   xx
#'
#' @return A matrix
#'
#' @examples
#' 
Normalise_S <- function(S){
  S <- S[,1:ncol(S)]
  #Normalise to unit row sum
  S.sum <- rowSums(S)
  S <- S/S.sum  
  #vectorise / matrices
  Sm <- as.matrix(S)
  Sn <- as.vector(Sm[1,])
  return(Sm)
}