muhaz evaluates the hazard function from right-hand censorship using kernel smoothing techniques. My question is, is there a way to get confidence intervals for the hazard function that muhaz calculates?
options(scipen=999) library(muhaz) data(ovarian, package="survival") attach(ovarian) fit1 <- muhaz(futime, fustat) plot(fit1, lwd=3, ylim=c(0,0.002))

In the above example, muhaz.object fit has several records fit1$msemin , fit1$var.min , fit1$haz.est , however their length is half fit1$haz.est .
Any ideas if you can extract confidence intervals for the hazard function?
EDIT: I tried the following based on what @ user20650 suggested
options(scipen=999) library(muhaz) data(ovarian, package="survival") fit1 <- muhaz(ovarian$futime, ovarian$fustat,min.time=0, max.time=744) h.df<-data.frame(est=fit1$est.grid, h.orig=fit1$haz.est) for (i in 1:10000){ dsonarian<-ovarian[sample(1:nrow(ovarian), nrow(ovarian), replace = T),] dsmuhaz<-muhaz(dsonarian$futime, dsonarian$fustat, min.time=0, max.time=744 ) h.df<-cbind(h.df, dsmuhaz$haz.est) } h.df$upper.ci<-apply(h.df[,c(-1,-2)], 1, FUN=function(x) quantile(x, probs = 0.975)) h.df$lower.ci<-apply(h.df[,c(-1,-2)], 1, FUN=function(x) quantile(x, probs = 0.025)) plot(h.df$est, h.df$h.orig, type="l", ylim=c(0,0.003), lwd=3) lines(h.df$est, h.df$upper.ci, lty=3, lwd=3) lines(h.df$est, h.df$lower.ci, lty=3, lwd=3)
Setting max.time seems to work, each bootstrap sample has the same grid points. However, CI got little point. Normally, I would expect that the intervals are narrow at t = 0 and will expand with time (less information, more uncertainty), but the intervals obtained seem more or less constant over time.
