R/summary.scSpectra.R

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

summary.scSpectra <- function(object, ncases = 10, ...){
  
  if (!inherits(object,"scSpectra")) {
    stop("object must be a scSpectra class object")
  }
  
  if (!inherits(ncases,"numeric")) {
    stop("ncases must be a valid number")
  }
  
  cat(paste("(", ncases, " first mass spectra) \n", sep = ""))
  print(head(object$est.table,ncases))
  cat("\n"); cat("----------------------------")
  cat("\n\n")
  cat(paste("Scale estimator:", object$estimator, "\n"))
  cat(paste("Method:", object$met, "\n"))
  cat(paste("Threshold:", object$threshold, "\n"))
  cat(paste("Limits: [", round(object$lower,4), ",", round(object$upper,4), "] \n", sep = ""))
  cat(paste("Deriv. order:", object$nd, "\n"))
  cat(paste("Lambda:", object$lambda, "\n"))
  cat(paste("No. potentially faulty spectra: ", object$cfailure, " (", object$prop*100," %) \n", sep = ""))

}