## Not run:
# handSpec <- cbind(mz=c(274.986685367956, 259.012401087427, 95.9493025990907, 96.9573002472772),
# int=c(357,761, 2821, 3446))
# addPeaksManually(w, cpdID, handSpec)
# ## End(Not run)
Run the code above in your browser using DataLab