simmer (version 3.1.2.9000)

at: Arrivals at specific times

Description

Generator convenience function to generate arrivals at specific times.

Usage

at(...)

Arguments

...

a vector or multiple parameters of times at which to initiate an arrival.

Value

Returns a generator function.

See Also

add_generator

Examples

# NOT RUN {
t0 <- create_trajectory("my trajectory") %>%
  ## add an intake activity
  seize("nurse", 1) %>%
  timeout(function() rnorm(1, 15)) %>%
  release("nurse", 1) %>%
  ## add a consultation activity
  seize("doctor", 1) %>%
  timeout(function() rnorm(1, 20)) %>%
  release("doctor", 1) %>%
  ## add a planning activity
  seize("administration", 1) %>%
  timeout(function() rnorm(1, 5)) %>%
  release("administration", 1)
  
env <- simmer("SuperDuperSim") %>%
  add_resource("nurse", 1) %>%
  add_resource("doctor", 2) %>%
  add_resource("administration", 1) %>%
  add_generator("patient", t0, at(0, c(1,10,30), 40, 43))
# }