R/print.msimat.R

In kbseah/mass2adduct: Mass Spectrometry Imaging Molecular Adduct Finder

#' Print method for class msimat
#'
#' @param d msimat; Object created by function \code{\link{msimat}}
#'
#' @export

print.msimat <- function(d) {
  matinfo <- data.frame(length(d[["peaks"]]),
                        min(d[["peaks"]]),
                        max(d[["peaks"]]),
                        length(d[["spots"]])
                        )
  names(matinfo) <- c("Peaks","Lowest mass","Highest mass","Pixels")
  cat("Object of class msimat:\n")
  print(matinfo)
  return(matinfo)
}