Research Article
Traffic Intensity Estimation in Finite Markovian Queueing Systems
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) |
|