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