library(ALassoSurvIC)
data(ex_ICLT) # interval censored and left truncated data
lowerIC <- ex_ICLT$lowerIC
upperIC <- ex_ICLT$upperIC
trunc <- ex_ICLT$trunc
X <- ex_ICLT[, -c(1:3)]
result <- alacoxIC(lowerIC, upperIC, X, trunc, theta = 1.5)
plot(result) # plotting the estimated baseline cumulative hazard function by default
plot(result, what = "survival") # plotting the estimated baseline survival function
Run the code above in your browser using DataLab