sawtooth: Create decline time series for multiple applications
In jranke/pfm: Utilities for Pesticide Fate Modelling

If the number of application cycles n is greater than 1, the application pattern specified in applications is repeated n times, with an interval i.

1 2	sawtooth(x, n = 1, i = 365, applications = data.frame(time = seq(0, (n - 1) * i, length.out = n), amount = 1))

`x`	A `one_box` object
`n`	The number of applications. If `applications` is specified, `n` is ignored
`i`	The interval between applications. If `applications` is specified, `i` is ignored
`applications`	A data frame holding the application times in the first column and the corresponding amounts applied in the second column.

applications = data.frame(time = seq(0, 14, by = 7), amount = c(1, 2, 3))
pred <- one_box(10)
plot(sawtooth(pred, applications = applications))

m_2 <- mkinmod(parent = mkinsub("SFO", "m1"), m1 = mkinsub("SFO"))
fit_2 <- mkinfit(m_2, FOCUS_2006_D, quiet = TRUE)
pred_2 <- one_box(fit_2, ini = 1)
pred_2_saw <- sawtooth(pred_2, 2, 7)
plot(pred_2_saw, max_twa = 21, max_twa_var = "m1")

max_twa(pred_2_saw)