急诊室R模拟程序问题

Question

问题陈述如下：

  

在急诊室，两名护士正在轮班（如果有的话）   没有病人在等待，传入的病人将由两个照顾   护士，如果有两个病人要进来，每个人都要照顾一个   如果护士们正在照料病人，然后另一个人进来，   护士应该去照顾刚进来的病人和时间   病人1剩下的时间减少了十分钟。

现在，这是我到目前为止在程序中得到的： [回复豪尔赫·罗德里格斯]

#Prueba funcion post.seize()
library(simmer)
library(dplyr)


set.seed(1234)

emergency <- simmer()

pacient <- 
  trajectory("pacient trajectory")%>%
  log_("Here I am")%>%
  set_attribute("start_time", function() {now(emerency)})%>%
  seize("nurse")%>%
  log_(function() {paste("Waited: ", now(emergency) - get_attribute(emergency, "start_time"))})%>%
  timeout(function() {runif(1, 0.2, 1)})%>%
  release("nurse")%>%
  log_(function() {paste("Finished: ", now(emergency))})  



emergency <- 
  simmer("emergency")%>%
  add_resource("nurse", 2)%>%
  add_generator("pacient", pacient, function() {c(rexp(1, 0.2)), -1)})%>%



emergency %>% run(until=400)

emergency %>%
  get_mon_arrivals %>%
  dplyr::mutate(waiting_time = end_time - start_time - activity_time)

arrivals<- emergency %>% get_mon_arrivals(per_resource=T)
waiting <- arrivals$end_time - arrivals$start_time - arrivals$activity_time
waiting
mean(waiting)

我想我的代码中有很多登录工作，但是真正让我很难看到的部分是：

  

如果护士们正在照料病人，然后另一个人进来，   护士应该去照顾刚进来的病人和时间   病人1剩下的时间减少了十分钟。