simEd (version 2.0.2)

meanTPS: Mean of Time-Persistent Statistics (TPS)

Description

Computes the sample mean of a time-persistent function.

Usage

meanTPS(times = NULL, numbers = NULL)

Value

the sample mean of the time-persistent function provided

Arguments

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

Author

Barry Lawson (),
Larry Leemis (),
Vadim Kudlay ()

Details

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.

Examples

 times  <- c(1,2,3,4,5)
 counts <- c(1,2,1,1,2)
 meanTPS(times, counts)

 output <- ssq(seed = 54321, maxTime = 100, 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)