rtype1 {bccp}

Simulating a progressive type-I interval censoring scheme

Description

Simulates a progressive type-I interval censoring scheme when censoring times and percentage of removed items in end of each interval are given in a data.frame structure.

Usage

rtype1(n, P, T, param, mle, cdf.expression = FALSE, pdf.expression = TRUE, cdf, pdf,
          lb = 0)

Arguments

n

Number of items placed on the test at time zero.

P

A vector of upper bounds of the censoring times T.

T

A vector that contains percentage P, of the removed alive items in each interval.

param

A character vector that contains the name of family's parameters.

mle

A vector that contains of the maximum likelihood estimators of the parameters.

cdf.expression

Logical. That is TRUE, if there is a closed form expression for the cumulative distribution function.

pdf.expression

Logical. That is TRUE, if there is a closed form expression for the probability density function.

cdf

Expression of the cumulative distribution function.

pdf

Expression of the probability density function.

lb

Lower bound of the family's support. That is zero by default.

Details

For a family of distributions whose support is the positive semi-axis, i.e., x>0, the cumulative distribution function (cdf) may not be differentiable. In this case, the lower bound of the support of random variable, i.e., lb that is zero by default, must be chosen some positive small value to ensure the differentiability of the cdf.

Value

A data frame with four columns including censoring times, number of failed items in each interval, number of removed subjects in end of each interval, and percentage of removed items in end of each interval.

Author(s)

Mahdi Teimouri

References

R. Aggarwala 2001. Progressive interval censoring: some mathematical results with applications to inference. Communications in Statistics-Theory and Methods, 30(8&9), 1921–1935.

Examples

   data(plasma)
      n <- 112
  param <- c("alpha","beta")
    mle <- c(0.4, 0.05)
    cdf <- quote( 1-exp( beta*(1-exp( x^alpha )) ) )
      pdf <- quote( exp( beta*(1-exp( x^alpha )) )*( beta*(exp( x^alpha )*( x^(alpha-1)*alpha ) )) )
     lb <- 0
rtype1(n = n, P = plasma$P, T = plasma$upper, param = param, mle = mle, cdf.expression = FALSE,
      pdf.expression = TRUE, cdf = cdf, pdf = pdf, lb = lb)