R/removeSample.Spectra.R

Defines functions removeSample.Spectra

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

  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 31, 2023, 5:56 p.m.