小火记录使用了哪些资源

Question

在下面的Simmer代码中，有没有办法记录病人看的医生：

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

也就是说如果patient01去看医生1就记录在一个数据table.

Answer 1

默认情况下是。要获取此信息，只需使用参数 per_resource=TRUE 调用 get_mon_arrivals。快速示例：

library(simmer)

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

simmer() %>%
  add_resource("doctor1") %>%
  add_resource("doctor2") %>%
  add_resource("doctor3") %>%
  add_generator("patient", patient_traj, at(0, 1, 2, 3)) %>%
  run() %>%
  get_mon_arrivals(per_resource = TRUE)
#>       name start_time end_time activity_time resource replication
#> 1 patient0          0        5             5  doctor1           1
#> 2 patient1          1        6             5  doctor2           1
#> 3 patient2          2        7             5  doctor3           1
#> 4 patient3          3       10             5  doctor1           1

小火记录使用了哪些资源

Simmer to Record What Resources are Used

r

event-simulation