print.summary.o_OJN: Reports the results of an Open Jackson Network

Description Usage Arguments Details References See Also Examples

View source: R/OJN.R

Description

Reports the results of an Open Jackson Network

Usage

1
2
  ## S3 method for class 'summary.o_OJN'
print(x, ...)

Arguments

x

a object of class summary.o_OJN

...

aditional arguments

Details

Summaries an Open Jackson Network model

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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
## 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)

o_ojn <- QueueingModel(i_ojn)

print(summary(o_ojn))

queueing documentation built on Dec. 9, 2019, 1:06 a.m.