R/PtfromKm.R

Defines functions PtfromKm

PtfromKm <-
function(data,predict.time) {
   km = survfit(Surv(data[,1],data[,2])~1)

   1-approx(km$time,km$surv,predict.time)$y
}
mdbrown/survNRI documentation built on May 22, 2019, 3:24 p.m.