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