R/iHazardRateEst.R

"iHazardRateEst"<- function(xin, xout, ikfun, h, ci)
{
  n<- length(xin)
  n1<-1:n
  xin.use<-sort(xin)
  arg1<-(sapply(xout, "-", xin.use))/h
  arg2<-ikfun(arg1)* ci/(n-n1+1)
  arg3<-colSums(arg2)
  arg3
}

Try the NPHazardRate package in your browser

Any scripts or data that you put into this service are public.

NPHazardRate documentation built on May 2, 2019, 10:24 a.m.