-
Notifications
You must be signed in to change notification settings - Fork 0
/
serviceability.R
31 lines (26 loc) · 951 Bytes
/
serviceability.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#' Serviceability.
#'
#' @param serviceTime Service Time. A numeric value representing the service time or a
#' numeric vector of service times.
#' @param totalTime Total Time. A numeric value representing the total time for a given period
#' or a numeric vector of time periods
#' @return The function returns a numeric value representing the serviceability factor for a given period.
#' @examples
#' service <- 900
#' total <- 1000
#' serv(service, total)
#' @export
serv <- function(serviceTime, totalTime)
{
# Check for a numeric vector of forced outage times
if(all(!is.null(serviceTime), !is.numeric(serviceTime))) {
stop("Argument \"serviceTime\" must be a numeric vector")
}
# Check for a numeric vector of time periods
if(all(!is.null(totalTime), !is.numeric(totalTime))) {
stop("Argument \"totalTime\" must be a numeric vector")
}
# Calculate serviceability factor
serv <- serviceTime/totalTime
print(serv)
}