rtype1 {bccp} | R Documentation |

## 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` |
A vector that contains percentage |

`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 |

`pdf.expression` |
Logical. That is |

`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)
```

*bccp*version 0.5.0 Index]