From 451b332c8888bac8279340b086abb3b714ac3ae1 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
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) +m_2 <- mkinmod(parent = mkinsub("SFO", "m1"), m1 = mkinsub("SFO"))#>fit_2 <- mkinfit(m_2, FOCUS_2006_D, quiet = TRUE)#> Warning: Observations with value of zero were removed from the datapred_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)#> $max @@ -179,7 +178,7 @@ the corresponding amounts applied in the second column.-- cgit v1.2.1