powered by
sim_Censored(n = 100)
simData <- sim_Censored() # Simulates current status data fit <- logconcave(simData) # Fits a log concave fit
Run the code above in your browser using DataLab