Wk.o_OJN {queueing}

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 class '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

## 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)