exported new functions by cba

NAMESPACE

@@ -11,10 +11,12 @@ export(icm.seiqhrf)
 export(infection.FUN)
 export(init_status.icm)
 export(initialize.FUN)
+export(plot_models)
 export(plot_times)
 export(recovery.FUN)
 export(saveout.seiqhrf.icm)
 export(simulate_seiqhrf)
+export(vary_param)
 import(dplyr)
 import(ggplot2)
 importFrom(EpiModel,get_prev.icm)

R/results-parse.R

@@ -93,6 +93,7 @@ plot_times <- function(times){
 #' @import dplyr
 #' @importFrom tidyr pivot_longer
 #' 
+#' @export
 plot_models <- function(sims = baseline_sim,
                         sim_id = "baseline",
                         comp_remove = "none",

R/time_experiments.R

@@ -10,6 +10,7 @@
 #'
 #' @return list of parameter values for length t
 #'
+#' @export
 vary_param <- function(nstep = nstep, vals = vals, timing = timing) {
 
     stopifnot(length(vals) == length(timing))
@@ -37,6 +38,3 @@ vary_param <- function(nstep = nstep, vals = vals, timing = timing) {
     return(unlist(y))
 
 }
-
-
-

man/vary_param.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/time_experiments.R
+\name{vary_param}
+\alias{vary_param}
+\title{Generating time-dependent parameters}
+\usage{
+vary_param(nstep = nstep, vals = vals, timing = timing)
+}
+\arguments{
+\item{nstep}{Number of time steps to generate parameter values for.}
+
+\item{vals}{List of parameter values to include over the nsteps.}
+
+\item{timing}{List of the step numbers at which to start changes, with the
+last number reflecting when to hit the last parameter value in vals.}
+}
+\value{
+list of parameter values for length t
+}
+\description{
+Function to generate parameter values for the time range of the simulation
+that can change over time.
+}