R/normalize_peaks.R

In taxonomicallyinformedannotation/tima-r: Taxonomically Informed Metabolite Annotation

#' @title Normalize peaks
#'
#' @description This function normalizes peaks
#'
#' @return NULL
#'
#' @export
#'
#' @examples NULL
normalize_peaks <- function() {
  function(x, ...) {
    x[, 2] <- 100 * x[, 2] / max(x[, 2])
    return(x)
  }
}