peppm (version 0.0.1)

telecom: GTE Corporation telecommunication systems

Description

Failure times (in days) of 125 installed telecommunication systems installed by GTE Corporation.

Format

A data frame with 125 rows and 2 variables:

• time: vector of failure times (in days)

• status: vector of failure indicator

References

Piecewise Exponential Estimator for the Survival Function. J. S. Kim and F. Proschan. IEEE TRANSACTIONS ON RELIABILITY, VOL. 40, NO. 2, 1991.

Examples

# NOT RUN {
library(peppm)
data(telecom)
fit1 <- with(telecom, peppm(time, status, cohesion=1, nburnin=0, nlag=1, npost=100))
fit2 <- with(telecom, peppm(time, status, cohesion=2, nburnin=0, nlag=1, npost=100))
fit3 <- with(telecom, peppm(time, status, cohesion=3, nburnin=0, nlag=1, npost=100))
fit4 <- with(telecom, peppm(time, status, cohesion=4, nburnin=0, nlag=1, npost=100))
# time grid associated with the first line of the matrix U:

# }