# random sample from the uniform density
n <- 500
x <- runif(n)
# compute MLE of increasing hazard
mle <- find.shapeMLE(x, type="increasing")
# find fitted cumulative hazard function at t=0.2
find.H(0.2, mle$h.val, mle$h.range)
Run the code above in your browser using DataLab