问如何为轨迹中的资源定义不同的超时时间？预热/DES

EN

patient_traj <- trajectory(name = "patient_trajectory") %>%
  select(resources = c("doctor1", "doctor2", "doctor3")) %>%
  set_capacity_selected(1) %>%
  seize_selected(amount = 1) %>%
  timeout(function() rnorm(1, 5, .5)) %>%
  release_selected(amount = 1)

env <- simmer() %>%
  add_resource("doctor1", capacity = 0) %>%
  add_resource("doctor2", capacity = 0) %>%
  add_resource("doctor3", capacity = 0) %>%
  add_generator("patient", patient_traj, function() rnorm(1,2,.8),mon = 2) %>%
  run(500)

arrival <- get_mon_arrivals(env, per_resource = T)