## load library
library("MALDIquant");
## create a MassPeaks object
peaks <- createMassPeaks(mass=1:100, intensity=1:100,
metaData=list(name="example 1"));
## test
isMassObject(peaks); # returns TRUE
isMassPeaks(peaks); # returns TRUE
isMassSpectrum(peaks); # returns FALSE
isMassPeaks(double()); # returns FALSERun the code above in your browser using DataLab