Mean of Time-Persistent Statistics (TPS)
Computes the sample mean of a time-persistent statistic.
meanTPS(times = NULL, numbers = NULL)
times |
A numeric vector of non-decreasing time observations |
numbers |
A numeric vector containing the values of the time-persistent statistic between the time observation |
The lengths of times and numbers either must be the
same, or times may have one more entry than numbers
(interval endpoints vs. interval counts). The sample mean is the area
under the step-function created by the values in numbers between
the first and last element in times divided by the length of the
observation period.
Computes the sample mean of the time-persistent statistic provided.
Barry Lawson (blawson@richmond.edu),
Larry Leemis (leemis@math.wm.edu),
Vadim Kudlay (vadim.kudlay@richmond.edu)
times <- c(1,2,3,4,5)
counts <- c(1,2,1,1,2)
meanTPS(times, counts)
output <- ssq(seed = 54321, maxTime = 1000, saveServerStatus = TRUE)
utilization <- meanTPS(output$serverStatusT, output$serverStatusN)
# compute and graphically display mean of number in system vs time
output <- ssq(maxArrivals = 60, seed = 54321, saveAllStats = TRUE)
plot(output$numInSystemT, output$numInSystemN, type = "s", bty = "l",
las = 1, xlab = "time", ylab = "number in system")
timeAvgNumInSysMean <- meanTPS(output$numInSystemT, output$numInSystemN)
abline(h = timeAvgNumInSysMean, lty = "solid", col = "red", lwd = 2)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.