library("MALDIquant")
s <- c(createMassSpectrum(1:5, 1:5),
createMassSpectrum(double(), double()))
m <- mergeMassSpectra(s)
# Error in approxfun(x = x@mass, y = x@intensity, method = method, yleft = yleft, : need at least two non-NA values to interpolate
# In addition: Warning message:
# In max(x@intensity) : no non-missing arguments to max; returning -Inf