Nothing
## MassSpectrum
setMethod(f=".findLocalMaxima",
signature=signature(object="MassSpectrum"),
definition=function(object, halfWindowSize=20L) {
if (.isEmptyWarning(object)) {
return(matrix(ncol=2L, dimnames=list(list(), list("mass", "intensity"))))
}
localMaxima <- .findLocalMaximaLogical(object, halfWindowSize=halfWindowSize)
cbind(mass=object@mass, intensity=object@intensity)[localMaxima,]
})
setMethod(f=".findLocalMaximaLogical",
signature=signature(object="MassSpectrum"),
definition=function(object, halfWindowSize=20L) {
if (.isEmptyWarning(object)) {
return(logical())
}
.stopIfNotIsValidHalfWindowSize(halfWindowSize=halfWindowSize,
n=length(object))
.localMaxima(object@intensity, halfWindowSize=halfWindowSize)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.