queueing (version 0.2.12)

Lk.o_OJN: Returns the vector with the mean number of customers in each node (server) of an Open Jackson Network

Description

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

Usage

# S3 method for o_OJN
Lk(x, …)

Arguments

x

a object of class o_OJN

…

aditional arguments

Details

Returns the vector with the mean number of customers 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)

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

# Build the model
o_ojn <- QueueingModel(i_ojn)

Lk(o_ojn)

# }