R/matplot.spectra.R

In ashiklom/PEcAnRTM: PEcAn functions used for radiative transfer modeling

#' Matplot generic method
#'
#' @export
matplot <- function(...) {
  UseMethod("matplot")
}

#' Matplot default method
#'
#' @export
matplot.default <- function(...) graphics::matplot(...)

#' Plot multiple spectra on same graph
#'
#' @inheritParams is_spectra
#' @param ... Additional arguments to `matplot`
#' @export
matplot.spectra <- function(spectra, ...) {
  wavelength <- wavelengths(spectra)
  value <- spectra
  matplot(x = wavelength, y = value, type = "l", ...)
}