Compare parametric survival models by AIC/BIC.

Usage

morie_survival_compare_parametric(time, event)

Arguments

time: Numeric vector of event/censoring times.
event: Integer/logical vector; 1 = event, 0 = censored.

Value

A logical scalar.

Examples

set.seed(1)
time <- rexp(60); event <- rbinom(60, 1, 0.7)
str(morie_survival_compare_parametric(time, event), max.level = 1)
#> 'data.frame':	5 obs. of  5 variables:
#>  $ distribution  : chr  "lognormal" "loglogistic" "exponential" "weibull" ...
#>  $ log_likelihood: num  -56.3 -56.5 -58.1 -57.2 -75.1
#>  $ aic           : num  117 117 118 118 154
#>  $ bic           : num  121 121 120 123 158
#>  $ n_events      : int  47 47 47 47 47