## .replaceNegativeIntensityValues
## replaces negative intensity valus by zeros
##
## params:
## object AbstractMass Object
## warn: throw a warning?
##
## returns:
## an AbstractMass object
##
.replaceNegativeIntensityValues <- function(object, warn=TRUE) {
if (any(object@intensity < 0L, na.rm=TRUE) && !isEmpty(object)) {
if (warn) {
warning("Negative intensity values are replaced by zeros.")
}
object@intensity[which(object@intensity < 0L)] <- 0L
}
object
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.