data(example.peaks,package="tiger")
plot(reference.peak, type="l")
lines(example.peaks[1,], lty=2)
diagnostic_dawson(measured = reference.peak, modelled = example.peaks[1,])
#first half only
diagnostic_window(measured=reference.peak, modelled=example.peaks[1,],
position = 1, window.size = 45 )
#gliding window for 20 time steps
diagnostic_series(measured=reference.peak, modelled=example.peaks[1,],
window.size = 20 )
Run the code above in your browser using DataLab