processState <- create_process_state()
# add timer variable to process state
processState <- add_global_attribute(processState, name = "timer", value = 0)
timerIndex <- get_global_attribute_index(processState, name = "timer")
# create time updater based on the timer index
timeUpdater <- create_timer_updater(timerIndex)
modelManager <- create_model_manager()
myTimeModel <- create_round_based_time_model(timerIndex)
modelManager <- add_time_model(modelManager, myTimeModel)
timeSpan <- 20
simulator <- create_simulator(processState, modelManager, timeSpan,
verbose = TRUE, debug = FALSE)
simulate(simulator)
Run the code above in your browser using DataLab