get_rate: Get rate based on linear interpolation

In thednainus/HIVepisim: Network-modeling for MSM population in San Diego.

Get rate based on linear interpolation

Description

Get rate based on linear interpolation

Usage

get_rate(init_date, times, rates, at)

Arguments

init_date	Object of class Date. Initial date for the start of simulations in the form of "YEAR-MONTH-DAY".
times	Vector of times for interpolation
rates	Vector os respective rates (related to times)
at	time step in days

Value

rate based on linear interpolation. See approx.

Examples

# times <- c(2000:2019)
# rates <- c(1.445432e-06, 1.455312e-06, 1.414593e-06, 1.346566e-06,
#            1.329516e-06, 1.281034e-06, 1.445432e-06, 1.455312e-06,
#             1.414593e-06, 1.346566e-06, 1.329516e-06, 1.281034e-06,
#             1.288603e-06, 1.250734e-06, 1.265186e-06, 1.234629e-06,
#              1.193328e-06, 1.133912e-06, 1.099263e-06, 1.052727e-06)
# init_date <- as.Date("1980-01-01")
# new_rate <- get_rate(init_date, times, rates, at = 10000)

thednainus/HIVepisim documentation built on Nov. 23, 2023, 12:26 a.m.