library(simmer)
library(simmer.plot)
t0 <- 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)
envs <- lapply(1:100, function(i) {
simmer("SuperDuperSim", verbose=F) %>%
add_resource("nurse", 1) %>%
add_resource("doctor", 2) %>%
add_resource("administration", 1) %>%
add_generator("patient", t0, function() rnorm(1, 10, 2)) %>%
run(80)
})
plot(envs, "res", "usage", "doctor", items="server", steps=T)
plot(envs, "res", "utilization", c("nurse", "doctor","administration"))
plot(envs, "arr", "flow_time")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.