add code for setting up time sensitive experiments where parameter values change over time

R/time_experiments.R

@@ -39,30 +39,4 @@ vary_param <- function(nstep = nstep, vals = vals, timing = timing) {
 }
 
 
-vary_fun <- function(t,start_t=1,start_val,
-                     end_t = 9,
-                     end_val,
-                     end_t2=22, end_val2,
-                     do_relax = FALSE,
-                     relax_start = NULL,
-                     relax_end = NULL,
-                     relax_val = NULL) {
-    stopifnot(start_t < end_t)
 
-    if(do_relax){
-        stopifnot(relax_start <= relax_end)
-        stopifnot(end_t < relax_start)
-
-        y <-    ifelse(t <= start_t, start_val,
-                       ifelse(t <= end_t, start_val - (t-start_t)*(start_val - end_val)/(end_t - start_t),
-                              ifelse(t <= end_t2,end_val - (t - end_t)*(end_val - end_val2)/(end_t2 - end_t),
-                                     ifelse(t<=relax_start, end_val2,
-                                            ifelse(t <= relax_end, end_val2 - (t-relax_start)*(end_val2 - relax_val)/(relax_end - relax_start), relax_val)))))
-    } else {
-        y <-   ifelse(t <= start_t, start_val,
-                      ifelse(t <= end_t, start_val - (t-start_t)*(start_val - end_val)/(end_t - start_t),
-                             ifelse(t <= end_t2,end_val - (t - end_t)*(end_val - end_val2)/(end_t2 - end_t),end_val2)))
-    }
-    return(round(y,4))
-
-}