availDis: Availability Distribution

Description Usage Arguments Value Author(s) References See Also Examples

View source: R/availDis.R

Description

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

Usage

1
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

Author(s)

Daniele Amberti

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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
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)

mistat documentation built on April 18, 2021, 5:07 p.m.