Fix for the sawtooth function for repeated applications

For n > 2, the second application was made at 2 * i instead of i.

1 files changed, 1 insertions, 1 deletions

diff --git a/R/twa.R b/R/twa.R
index 0cece29..ace7656 100644
--- a/R/twa.R
+++ b/R/twa.R
@@ -195,7 +195,7 @@ plot.one_box <- function(x,
 #'
 #' max_twa(pred_2_saw)
 sawtooth <- function(x, n = 1, i = 365,
-                     applications = data.frame(time = seq(0, 0 + n * i, length.out = n),
+                     applications = data.frame(time = seq(0, (n - 1) * i, length.out = n),
                                                amount = 1))
 {
   n_obs = ncol(as.matrix(x))