Comment écrire une boucle dans la trajectoire du paquet Simmer

Question

J'essayais de simuler un réseau de files d'attente en utilisant le paquet de R Simmer. Cependant, j'ai eu du mal à intégrer des boucles dans la trajectoire principale. Un simple code de file d'attente une de noeud est le suivant:

to_queue_1 <- trajectory() %>% 
for(i in 1:100){ 
    seize("nurse", 1) %>% 
    timeout(1) %>% 
    release("nurse", 1) 
} 

env <- simmer() 
add_resource("nurse",1) 
env %>% 
add_generator("arrival1_", to_queue_1, function() rexp(1, 1),mon=2) %>% 
run(200) 

Après runing la fonction de la trajectoire, me montre que "Error in for (en i.) 1: 100: 4 arguments transmis à 'pour' ce qui nécessite 3" .

Le réseau actuel est plus compliqué, ce qui nécessite une boucle où différents nœuds communiquent. Par exemple, je souhaite que le nœud 1 passe aux nœuds 2 et 3. Le nœud 2 passe aux nœuds 1 et 3. Le nœud 3 passe aux nœuds 1 et 2. La seule sortie possible est le nœud 3.

Merci d'avance.

Answer 1

L'activité rollback sert à cette fin:

library(simmer) 

to_queue_1 <- trajectory() %>% 
    seize("nurse", 1) %>% 
    timeout(1) %>% 
    release("nurse", 1) %>% 
    rollback(3, 100) 

env <- simmer() %>% 
    add_resource("nurse",1) %>% 
    add_generator("arrival1_", to_queue_1, function() rexp(1, 1), mon=2) %>% 
    run(200) 

Où 3 est le nombre d'activités à faire reculer, et 100 est le nombre de répétitions.