R/removeSample.Spectra2D.R

Defines functions removeSample.Spectra2D

#'
#' 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)
}

Try the ChemoSpecUtils package in your browser

Any scripts or data that you put into this service are public.

ChemoSpecUtils documentation built on May 29, 2024, 3:12 a.m.