km_red {RPEXE.RPEXT}

Plot a Kaplan Meier curve in red

Description

The function plots a Kaplan Meier curve in red

Usage

km_red(time, censor, plotcens)

Arguments

time

time of observed event

censor

a vector indicating censored or not at the given times, 0 = censored; 1 = uncensored

plotcens

0: add censored data to the output curve

1: don't add censored data to the output curve

Value

A red Kaplan Meier curve

Examples

t1 <- c(2,3,4,5.5,7,10,12,15)
c1 <- c(0,0,1,0,0,1,0,0)
km_red(t1,c1,0)