Research Article

Traffic Intensity Estimation in Finite Markovian Queueing Systems

Listing 1

MLE for .
MLERoMM1K<−function (K,samp)
loglike.f<−function (rho, K, n, sumxi)
nlog (1−rho)+sumxilog (rho)−nlog (1−rho())
Eps.MLE<−1e−06
n<−length (samp)
sumxi<−sum (samp)
res<−optimize (loglike.f,c(Eps.MLE,1−Eps.MLE), K, n, sumxi, maximum=TRUE, tol=Eps.MLE)
return (res$maximum)