smed {EventPredInCure}

Function to output summary statistics from survfit function output

Description

Provide summary statistics from survfit function output

Usage

smed(x)

Arguments

x

an object returned by "survfit"

Value

"smed" returns a matrix of 5 columns of

Examples

n <- 500
event <- runif(n,1, 5)
osc<-1*(event<=4)
os <- pmin(event,4)

fit1<-survival::survfit(survival::Surv(os,osc)~1)
smed(fit1)