renewDis: Renewals Disribution

In mistat: Data Sets, Functions and Examples from the Book: "Modern Industrial Statistics" by Kenett, Zacks and Amberti

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

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

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)

mistat documentation built on March 7, 2023, 6:43 p.m.