data(example.peaks)
str(example.peaks)
str(reference.peak)
plot(reference.peak,type="line")
lines(example.peaks[,1], lty=2)
diagnostic_dawson(measured = reference.peak, modelled = example.peaks[1,])
## maybe str(peaks) ; plot(peaks) ...
Run the code above in your browser using DataLab