## Not run:
# # As used in the workflow:
# fp <- problematicPeaks(specs[!specs$filterOK & !specs$noise &
# ((specs$dppm == specs$dppmBest) | (is.na(specs$dppmBest)))
# ,,drop=FALSE], peaksMatched(w), mode)
# ## End(Not run)
Run the code above in your browser using DataLab