R/spectral.R

In demosense/archeospec: Analysis of the Reflectance Spectra From Paintings: Classification and Endmembers.

#' Check if the object x is of class spectral
#'
#' @export
#' @importFrom methods is
#' @param x Object to check if it is of class spectral
#' @return TRUE if x is of class spectral. FALSE otherwise
is.spectral <- function(x) {
  is(x, "spectral")
}

#' Print a short description of the spectral object
#'
#' @export
#' @param x Object of class spectral
#' @param ... Further arguments to be passed from or to other methods.
print.spectral <- function (x, ...) {
  print(sprintf("Spectral signatures of %d files", nrow(x$data)))
}

#' Print the summary of the spectral object
#'
#' @export
#' @param object Object of class spectral
#' @param ... Further arguments to be passed from or to other methods.
summary.spectral <- function (object, ...) {
  print(sprintf("Spectral signatures of %d files\n\n", nrow(object$data)))
  cat("\nRanges\n")

  max(as.numeric(object$range))
  cat(sprintf("  Length: %s\n", length(as.numeric(object$range))))
  cat(sprintf("  Min: %s\n", min(as.numeric(object$range))))
  cat(sprintf("  Max: %s\n", max(as.numeric(object$range))))

  cat("\nFiles\n")
  print(object$files)
}