queueing (version 0.2.12)

Wk.o_OJN: Returns the vector with the mean time spend in each node (server) of an Open Jackson Network

Description

Returns the vector with the mean time spend in each node (server) of an Open Jackson Network

Usage

# S3 method for o_OJN
Wk(x, …)

Arguments

x

a object of class o_OJN

…

aditional arguments

Details

Returns the vector with the mean time spend in each node (server) of an Open Jackson Network

References

[Sixto2004] Sixto Rios Insua, Alfonso Mateos Caballero, M Concepcion Bielza Lozoya, Antonio Jimenez Martin (2004). Investigacion Operativa. Modelos deterministicos y estocasticos. Editorial Centro de Estudios Ramon Areces.

See Also

QueueingModel.i_OJN.

Examples

# NOT RUN {
## See example 11.11 in reference [Sixto2004] for more details.
## create the nodes
n1 <- NewInput.MM1(lambda=8, mu=14, n=0)
n2 <- NewInput.MM1(lambda=0, mu=9, n=0)
n3 <- NewInput.MM1(lambda=6, mu=17, n=0)
n4 <- NewInput.MM1(lambda=0, mu=7, n=0)
m  <- c(0, 0.2, 0.56, 0.24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

# definition of the transition probabilities
prob <- matrix(data=m, nrow=4, ncol=4, byrow=TRUE)

ojn1 <- NewInput.OJN(prob, n1, n2, n3, n4)

m_ojn1 <- QueueingModel(ojn1)

Wk(m_ojn1)

# }