## Not run:
# # More or less as used in recalibrateSpectra:
# rcdata <- peaksMatched(w)
# rcdata <- rcdata[rcdata$formulaCount == 1, ,drop=FALSE]
# ms1data <- recalibrate.addMS1data(w, "pH", 15)
# rcdata <- rbind(rcdata, ms1data)
# # ... continue constructing recalibration curve with rcdata
# ## End(Not run)
Run the code above in your browser using DataLab