R/kaplan.meier.location.R

kaplan.meier.location <-
function(fit)
  {
    xloc=fit$time[fit$n.event>0]
    yloc=1-fit$surv[fit$n.event>0]
    nn=length(yloc)
    yloc=(yloc+c(0,yloc[1:(nn-1)]))/2
    return(cbind(xloc,yloc))
  }

Try the SPREDA package in your browser

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

SPREDA documentation built on May 2, 2019, 4 p.m.