fit = logconcave(rnorm(500) )
# Fits a log concave estimator to an uncensored sample
plotLC(fit)
# Plots the estimated survival distribution
simData <- simPH_Censored()
# Simulates current status data from a CoxPH model
fit <- logconcave(simData$times, simData$x)
# Fits coxPH model
plotLC(fit, covars = c(0,0), funtype = 'cdf')
# Plots the estimated baseline cdf
linesLC(fit, covars = c(1,1), funtype = 'cdf', col = 'red')
# Plots the estimates cdf with covariates c(1,1)Run the code above in your browser using DataLab