env <- simmer()
traj <- trajectory() %>%
# simple assignment
set_attribute("my_key", 123) %>%
set_global("global_key", 321) %>%
# more than one assignment at once
set_attribute(c("my_key", "other_key"), c(5, 64)) %>%
# increment
set_attribute("my_key", 1, mod="+") %>%
# assignment using a function
set_attribute("independent_key", function() runif(1)) %>%
# assignment dependent on another attribute
set_attribute("dependent_key", function()
ifelse(get_attribute(env, "my_key") <= 0.5, 1, 0))
env %>%
add_generator("dummy", traj, at(3), mon=2) %>%
run() %>%
get_mon_attributes()
Run the code above in your browser using DataCamp Workspace