Как определить начальное состояние модели массового обслуживания в r simmer?

Question

Вот стандартная проблема банковского счетчика, чтобы проиллюстрировать мой вопрос:

Рассмотрим простой банк с клиентами, прибывающими в случайном порядке. Клиенты должны обслуживаться на одном из двух прилавков, выбирая случайное время для обслуживания на каждом. Также предположим, что ожидающие клиенты формируют одну очередь FIFO.

Вот осложнение:

Предположим, что мы заинтересованы в моделировании этой системы, начиная с полудня определенного дня, а не с начала дня. В полдень оба счетчика заняты, и уже есть очередь из 4 клиентов.

Есть ли способ построить в этом начальном состоянии в R Simmer?

Вот код, который у меня уже есть:

library(simmer)

set.seed(1234)

customer <- 
  trajectory("Customer's path") %>%
  log_("Here I am") %>% 
  set_attribute("start_time", function() {now(bank)}) %>% 
  seize("counter") %>% 
  log_(function() {paste("Waited: ", now(bank) - get_attribute(bank, "start_time"))}) %>% 
  timeout(function() {rexp(1, 1/12)}) %>% 
  release("counter") %>% 
  log_(function() {paste("Finished: ", now(bank))})

bank <- 
  simmer("bank") %>% 
  add_resource("counter", 2) %>% 
  add_generator("Customer", customer, function() sample(1:15,1))

bank %>% run(until = 300)

Answer 1

Вы можете установить начальные условия довольно легко: просто добавьте еще один генератор, чтобы поставить 6 поступлений при t=0. И если вам нужно дополнительно настроить время их обслуживания, настройте другую траекторию для этой цели.