mistat (version 0.999)

availDis: Availability Distribution

Description

Provide the Empirical Bootstrap Distribution of the asymptotic availability index $A_\infty$, based on observed samples of failure times and repair times.

Usage

availDis(ttf, ttr, n, seed = NA, printSummary = TRUE)

Arguments

ttf

numeric vector of Time To Failure

ttr

numeric vector of Time To Repair

n

the number of bootstrap replicates

seed

a single value, interpreted as an integer. If specified make the simulation replicable.

printSummary

logical, if TRUE print the Mean Time To Failure, Mean Time To Repair and the asymptotic availability

Value

• A numeric vector of lenght n with simulated availabilities

References

Kenett, R., Zacks, S. with contributions by Amberti, D. Modern Industrial Statistics: with applications in R, MINITAB and JMP. Wiley.

See Also

renewDis

Examples

set.seed(123)

Ttf <- rgamma(50, 
              shape=2, 
              scale=100)

Ttr <- rgamma(50, 
              shape=2, 
              scale=1)

AvailEbd <- availDis(ttf=Ttf,  
                     ttr=Ttr, 
                     n=1000)