tests/t-Surv2fitdistcens.R

require(fitdistrplus)
data("fremale")

# fremale test

fremale.cens <- Surv2fitdistcens(fremale$AgeIn, fremale$AgeOut, fremale$Death)


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)

Try the fitdistrplus package in your browser

Any scripts or data that you put into this service are public.

fitdistrplus documentation built on April 25, 2023, 5:09 p.m.