# Simulate interval-censored data from a Weibull distribution
set.seed(123)
dat <- simIC(n = 100, dist = "weibull", shape = 1.5, scale = 5, width = 2,
study_start = 1, study_end = 8, uncensored_tol = 0.1)
# Fit model using harmonic median imputation
fit <- mle_imp(left = dat$left, right = dat$right, dist = "weibull", impute = "harmonic_median")
# Inspect results
print(fit$estimates)
print(fit$logLik)
print(fit$converged)
Run the code above in your browser using DataLab