## For Channing House data (heavy censored data)##
## Not run: require(package="boot")
## Not run: time.ch<-channing[1:97,]$time #for male
## Not run: delta.ch<-channing[1:97,]$cens # for male
## Not run: hc.Yn.m<-rep(137,19) # there are 19 last largest censored male each has 137 lifetime
## Not run: imp.PDQ<-imputeYn.extra(time.ch, delta.ch, hc.Yn=hc.Yn.m,
# method="it.PDQ", trace=T)## End(Not run)
## Not run: imp.PDQ
## Not run: imp.TPQ<-imputeYn.extra(time.ch, delta.ch, hc.Yn=hc.Yn.m,
# method = "km.TPQ", trace=T)## End(Not run)
## Not run: imp.TPQ
Run the code above in your browser using DataLab