R/countPeaks.R

In Japal/MALDIrppa: MALDI Mass Spectrometry Data Robust Pre-Processing and Analysis

countPeaks <- function(x){

  if (!is.list(x)){
    if (!isMassPeaks(x)){
      stop("x must be a MassPeaks object")}
  }
  
  if (is.list(x)){
    if (!isMassPeaksList(x)){
      stop("x must be a list of MassPeaks objects")}
  }
  
  lengths(x)
  
}