-
Notifications
You must be signed in to change notification settings - Fork 0
/
mtbf.R
30 lines (25 loc) · 880 Bytes
/
mtbf.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
#' Mean Time To Failure (MTTF).
#'
#' @param failures Failures. A numeric value representing the number of failures for a given period.
#' @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 MTTF for a given period.
#' @examples
#' fail <- 5
#' total <- 1000
#' mttf(fail, total)
#' @export
mttf <- function(failures, totalTime)
{
# Check for a numeric value of failures
if(all(!is.null(failures), !is.numeric(failures))) {
stop("Argument \"failures\" 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 reliability
mttf <- totalTime/failures
print(mttf)
}