fit = logconcave(rnorm(500) )
# Fits a log concave estimator to an uncensored sample
qLC(0.5, fit)
# Estimates the median
simData <- simPH_Censored()
# Simulates current status data from a CoxPH model
fit <- logconcave(simData$times, simData$x)
# Fits coxPH model
qLC(0.5, fit, covars = c(0,0))
# Estimates the baseline median
Run the code above in your browser using DataLab