Learn R Programming

incubate package

In survival analysis, events sometimes only start to occur after a certain delay since entry time and this delay period might vary for different treatments or groups. While parametric delay models, like the three-parameter Weibull distribution, might adequately describe this process the estimation of delay via standard maximum likelihood is severely biased in small samples. The R-package incubate employs an alternative estimation method called maximum product of spacings estimation (MPSE) to estimate and test delay and other parameters in a one or two group setting. Concretely, building on MPSE, incubate can

  1. fit parameter estimates where certain parameters can be constrained to be shared between both groups
  2. calculate bootstrap confidence intervals for these model parameters and
  3. compare the survival experience of two groups within this statistical model with respect to model parameters.

Example

The incubate-package provides the delayed exponential distribution as special case of the delayed Weibull distribution. We draw random samples corresponding to two groups with different model parameters.

library("incubate")

# simulate data from exponential distribution with delay
x <- rexp_delayed(n = 13, delay1 = 1.0, rate1 = 0.8)
y <- rexp_delayed(n = 11, delay1 = 1.5, rate1 = 1.2)

We use the model function delay_model to fit a exponential model with delay to both groups and show the model fit.

fm <- delay_model(x, y)

plot(fm)

Inference on the model parameters is possible through confint for bootstrap confidence intervals and delay_test for parameter comparisons in a two group setting.

# confidence interval for delay-parameters
confint(fm, parm = c('delay1.x', 'delay1.y'))
#>               2.5%    97.5%
#> delay1.x 0.8060324 1.094331
#> delay1.y 1.3505534 1.753090

# test on difference in delay
# for real applications use R>=1000 bootstrap draws
delay_test <- test_diff(x, y, R = 100)
plot(delay_test)

Parallel computation

To switch on parallel computation, e.g. for bootstrap parameter tests or power simulations, simply set up a suitable computation plan via the Future-API. For instance, do the following to activate four R-sessions in the background of your local computer for computer-intensive tasks in incubate:

library("future")
plan(multisession, workers = 4)

That’s it. You do not have to change any function calls. incubate is future-aware. Consult the future-package on CRAN for more information about futures and about supported computation plans.

When you are done with the heavy computing, it is best practice to release the parallel connections via plan(sequential).

Installation

The incubate package is found on CRAN and development happens at Gitlab.

Use install.packages to install incubate from CRAN as usual, i.e., install.packages("incubate") should do.

To install its latest version from the main branch on Gitlab use the following R-code:

remotes::install_gitlab("imb-dev/incubate")

To install a specific version, add the version tag after the name, separated by a @, e.g. to install incubate in version v1.1.9 use

remotes::install_gitlab("imb-dev/incubate@v1.1.9")

The suffix @develop points to the latest development version on Gitlab.

Copy Link

Version

Install

install.packages('incubate')

Monthly Downloads

189

Version

1.3.0

License

LGPL (>= 3)

Maintainer

Matthias Kuhn

Last Published

August 16th, 2024

Functions in incubate (1.3.0)

transform.incubate_fit

Transform observed data to unit interval
update.incubate_fit

Refit an incubate_fit-object with specified optimization arguments. If more things need to be changed go back to delay_model and start from scratch.
delay_fit

Fit optimal parameters according to the objective function (either MPSE or MLE-based).
DelayedExponential

Delayed Exponential Distribution
delay_model

Fit a delayed Exponential or Weibull model to one or two given sample(s).
estimRoundingError

Estimate rounding error based on given sample of metric values The idea is to check at which level of rounding the sample values do not change.
as_percent

Format a number as percentage.
bsDataStep

Generate bootstrap distribution of model parameters to fitted incubate model.
confint.incubate_fit

Confidence intervals for parameters of incubate-model fits.
coef.incubate_fit

Coefficients of a delay-model fit.
getDist

Get delay distribution function
test_diff

Test the difference for delay model parameter(s) between two uncorrelated groups, based on maximum product of spacings estimation (MPSE).
objFunFactory

Factory method for objective function, either according to maximum product of spacings estimation ('MPSE') or according to some flavour of maximum likelihood estimation (e.g., naive ('MLEn') or corrected ('MLEc') or weighted ('MLEw') MLE).
test_GOF

Goodness-of-fit (GOF) test statistic.
minObjFunPORT

Minimize an objective function with PORT routine (nlminb)
stankovic

Survival of mice with glioma under different treatments
publication_examples

Small data sets from different publications
DelayedWeibull

Delayed Weibull Distribution
incubate

Incubate package for parametric time-to-event analysis with delay
power_diff

Power simulation function for a two-group comparison of the delay parameter.
scalePars

Calculate parameter scaling for optimization routine.