R/KMW.R

Defines functions KMW

Documented in KMW

KMW <-
  function(time, status){
    t1 <- max(time)
    len <- length(time)
    res <- .C( "WeightsKaplanMeierSort", time = as.double(time),
               status = as.integer(status), as.integer(len),
               as.double(t1), weights = double(len) )
    return(res$weights)
  }

Try the survidm package in your browser

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

survidm documentation built on June 25, 2021, 1:07 a.m.