Nothing
## AbstractMassObject
.validAbstractMassObject <- function(object) {
if (length(object@mass) != length(object@intensity)) {
return(paste0("Lengths of mass (", length(object@mass),
") and intensity (", length(object@intensity),
") have to be equal."))
}
if (is.numeric(object@mass) &&
length(object@mass) &&
any(object@mass < 0L)) {
warning("Negative mass values found.")
}
if (is.numeric(object@intensity) &&
!isEmpty(object) &&
any(object@intensity < 0L)) {
warning("Negative intensity values found.")
}
if (is.unsorted(object@mass)) {
warning("Unsorted mass values found.")
}
TRUE
}
setValidity("AbstractMassObject", method=.validAbstractMassObject)
.validMassPeaks <- function(object) {
if (length(object@intensity) != length(object@snr)) {
return(paste0("Lengths of intensity (", length(object@intensity),
") and snr (", length(object@snr),
") have to be equal."))
}
.validAbstractMassObject(object)
}
setValidity("MassPeaks", method=.validMassPeaks)
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.