R Under development (unstable) (2025-07-22 r88445 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(parfm)
Loading required package: survival
Loading required package: optimx
> data(kidney)
Warning message:
In data(kidney) : data set 'kidney' not found
> kidney$sex <- kidney$sex - 1
> 
> plot(select.parfm(Surv(time,status) ~ sex + age, 
+                    dist=c("exponential", "gompertz", "lognormal"),
+                    frailty=c("gamma", "possta"),
+                    cluster="id", data=kidney))


### - Parametric frailty models - ###
Progress status:
  'ok' = converged
  'nc' = not converged

                Frailty
Baseline            gamma   posSta
exponential.........ok......ok....
Gompertz............ok......ok....
lognormal...........ok......ok....
> 
> proc.time()
   user  system elapsed 
  30.25    0.90   31.15