R Under development (unstable) (2024-07-10 r86888 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.

> require(fitdistrplus)
Loading required package: fitdistrplus
Loading required package: MASS
Loading required package: survival
> data("fremale")
> 
> # fremale test
> 
> fremale.cens <- Surv2fitdistcens(fremale$AgeIn, fremale$AgeOut, fremale$Death)
Warning message:
In Surv2fitdistcens(fremale$AgeIn, fremale$AgeOut, fremale$Death) :
  time2 is not used with type 'right' and 'left' 
> 
> 
> f1 <- fitdistcens(fremale.cens, "norm")
> f2 <- fitdistcens(fremale.cens, "logis")
> f3 <- fitdistcens(fremale.cens, "cauchy")
> 
> cdfcompcens(list(f1, f2, f3))
> sapply(list(f1, f2, f3), logLik)
[1] -330.0505 -331.4743 -343.7065
> 
> 
> proc.time()
   user  system elapsed 
   1.75    0.23    1.96