R/removeSample.Spectra2D.R

In ChemoSpecUtils: Functions Supporting Packages ChemoSpec and ChemoSpec2D

#'
#' removeSample.Spectra2D
#'
#' @author `r .writeDoc_Authors("BH")`
#' @noRd
#' @export
#'
removeSample.Spectra2D <- function(spectra, rem.sam) {
  .chkArgs(mode = 21L)

  if (missing(rem.sam)) stop("Nothing to remove")
  chkSpectra(spectra)

  spectra <- .remGrpSam(spectra, rem.sam, FALSE)
  return(spectra)
}