mistat (version 2.0.4)

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)

Value

A numeric vector of lenght n with simulated number of renewals

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

Author

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

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)