# NOT RUN {
data(bmt)
time<-bmt$Time
delta<-bmt$Status
z<-bmt$TRT
AEHMLE(init = c(1.0,0.5,1.0,0.5),time = time,delta = delta,n=nrow(z),
basehaz = "GLLAEH",z = z,hp.obs=0.6,method = "Nelder-Mead",
maxit = 1000)
# }
Run the code above in your browser using DataLab