## load packagelibrary("MALDIquant")## create listpeakList <- list()## create two MassPeaks objects and add them to the listpeakList[[1]]<- createMassPeaks(mass=1:100, intensity=1:100, metaData=list(name="example 1"))peakList[[2]]<- createMassPeaks(mass=1:100, intensity=1:100, metaData=list(name="example 2"))## find empty objects (there should not be any one)findEmptyMassObjects(peakList)## add an empty MassPeaks object to the listpeakList[[3]]<- createMassPeaks(mass=double(), intensity=double(), metaData=list(name="empty MassPeaks object"))## look for empty objects (isEmptyIdx == 3)(isEmptyIdx <- findEmptyMassObjects(peakList))## to remove all empty MassObjects from a listlength(peakList)# 3peakList <- removeEmptyMassObjects(peakList)length(peakList)# 2; WARNING: all indices could changed