R/estimateBaseline-methods.R

In sgibb/MALDIquant: Quantitative Analysis of Mass Spectrometry Data

## MassSpectrum
setMethod(f="estimateBaseline",
          signature=signature(object="MassSpectrum"),
          definition=function(object, method=c("SNIP", "TopHat", "ConvexHull",
                                               "median"),
                              ...) {
  if (.isEmptyWarning(object)) {
    return(NA)
  }

  cbind(mass=object@mass,
        intensity=.estimateBaseline(x=object@mass, y=object@intensity,
                                    method=method, ...))
})