generate a vector of times when events is happening

generate a vector of times when events is happening

Usage

.eventTimes(t_events = NULL, t_duration = NULL, t_end = 1000, ...)

Arguments

t_events, t_duration

Numeric: vector of starting time and duration of the events

t_end

Numeric: end time of the simulation

...

: additional parameters to pass to simulationTimes, including t_start, t_step, and t_store.

Value

A vector of time points in the simulation

Examples

tEvent <- .eventTimes(
    t_events = c(10, 50, 100),
    t_duration = c(1, 2, 3),
    t_end = 100,
    t_store = 100,
    t_step = 1
)