mistat (version 0.999)

renewDis: Renewals Disribution

Description

Provide the Empirical Bootstrap Distribution of the number of renewals in a specified time interval.

Usage

renewDis(ttf, ttr, time, n, printSummary = TRUE)

Arguments

ttf

numeric vector of Time To Failure

ttr

numeric vector of Time To Repair

time

numeric value representing the time horizon on which number of renewals are calculated

n

the number of bootstrap replicates

printSummary

logical, if TRUE print the Mean Number of Renewals, and a summary of renewals values

Value

• A numeric vector of lenght n with simulated number of renewals

References

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

See Also

availDis

Examples

set.seed(123)

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

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

RenewEbd <- renewDis(ttf=Ttf, 
                     ttr=Ttr, 
                     time=1000, 
                     n=1000)