km_red function

Plot a Kaplan Meier curve in red