## MassSpectrum
## createMassSpectrum
## default constructor: MassSpectrum class
##
## params:
## mass: vector, spectrum mass
## intensity: vector, spectrum intensities
## metaData: list, metadata
##
## returns:
## a MassSpectrum object
##
createMassSpectrum <- function(mass, intensity, metaData=list()) {
object <- new(Class="MassSpectrum", mass=mass, intensity=intensity, metaData=metaData)
.reorder(object)
}
## end of MassSpectrum
## MassPeaks
## createMassPeaks
## default constructor: MassPeaks class
##
## params:
## mass: vector, peaks mass
## intensity: vector, peaks intensities
## snr: vector, peaks snr
## metaData: list, metadata
##
## returns:
## a MassPeaks object
##
createMassPeaks <- function(mass, intensity,
snr=rep.int(NA_real_, length(intensity)),
metaData=list()) {
object <- new(Class="MassPeaks", mass=mass, intensity=intensity, snr=snr,
metaData=metaData)
.reorder(object)
}
## end of MassPeaks
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.