时间戳

首页 > 解决方案 > 在 r 中添加高峰时段的到达过程

r - 在 r 中添加高峰时段的到达过程

问题描述

我正在制作一个 DES 模型simmer。而不是指数或平均分布的到达过程，我想要一个有两个高峰时间的到达过程。现在我只有这两个功能：

  add_generator("traffic" , trajectory = weekday , function() rnorm(100, 15, 5))%>% 
  add_generator("traffic2" , trajectory = weekday , function() rexp(100, 1/5))%>%

我想要的是 10 辆汽车/小时和 50 辆汽车在上午 8 点到 10 点的恒定输入。

标签： r

解决方案

以下代码在和cph之间每小时生成汽车：hstarthstop

library(simmer)
weekday <- trajectory() 

cph <- 10
hstart <- 8
hstop <- 10

simmer() %>%
  add_generator(paste0(cph,"carsperhour"), weekday , at(seq(from=hstart,to=hstop, by = 1/cph))) %>%
  run() %>%
  get_mon_arrivals()
#>               name start_time end_time activity_time finished replication
#> 1   10carsperhour0        8.0      8.0             0     TRUE           1
#> 2   10carsperhour1        8.1      8.1             0     TRUE           1
#> 3   10carsperhour2        8.2      8.2             0     TRUE           1
#> 4   10carsperhour3        8.3      8.3             0     TRUE           1
#> 5   10carsperhour4        8.4      8.4             0     TRUE           1
#> 6   10carsperhour5        8.5      8.5             0     TRUE           1
#> 7   10carsperhour6        8.6      8.6             0     TRUE           1
#> 8   10carsperhour7        8.7      8.7             0     TRUE           1
#> 9   10carsperhour8        8.8      8.8             0     TRUE           1
#> 10  10carsperhour9        8.9      8.9             0     TRUE           1
#> 11 10carsperhour10        9.0      9.0             0     TRUE           1
#> 12 10carsperhour11        9.1      9.1             0     TRUE           1
#> 13 10carsperhour12        9.2      9.2             0     TRUE           1
#> 14 10carsperhour13        9.3      9.3             0     TRUE           1
#> 15 10carsperhour14        9.4      9.4             0     TRUE           1
#> 16 10carsperhour15        9.5      9.5             0     TRUE           1
#> 17 10carsperhour16        9.6      9.6             0     TRUE           1
#> 18 10carsperhour17        9.7      9.7             0     TRUE           1
#> 19 10carsperhour18        9.8      9.8             0     TRUE           1
#> 20 10carsperhour19        9.9      9.9             0     TRUE           1
#> 21 10carsperhour20       10.0     10.0             0     TRUE           1

推荐阅读