R/TICnorm.R

In jasenfinch/OrbiFIEmisc: Miscellaneous functions for the analysis of FIE-HRMS data.

#' Total Ion Count Normalisation.
#' @name TICnorm
#' @description Normalise FIE-HRMS spectra to their total ion count.
#' @param dat A data.frame.
#' @return A TIC normalised data.frame.
#' @author Jasen Finch
#' @export

TICnorm <- function(dat){
  dat <- apply(dat,2,function(x,y){x/y},y=rowSums(dat))
  return(dat)
}