#MLE under exponential distribution
#set distribution parameter
lambda = 1
#generate time to event
u = runif(100)
t.event = -log(u)/lambda
t.event = sort(t.event)
#censoring indicator
tc = runif(100, 0, 1.5)
t.event = (tc >= t.event) * t.event + (tc < t.event) * tc
event = 1 * (tc > t.event)
survival.mle(t.event, event, distribution = "exponential")
Run the code above in your browser using DataLab