Анализ выживаемости в R Опции

[kont]

Подскажите, пожалуйста, как в R мне разделить график Каплана -Мейерса по группам, чтобы каждая группа имела свой цвет.
Например
# Kaplan-Meier non-parametric analysis by group
kmsurvival1 <- survfit(Surv(kaplan17$time, kaplan17$event) ~ kaplan17$group)
plot(kmsurvival1, xlab="Time", ylab="Survival Probability")

График выглядит не информативно.
http://funkyimg.com/view/2gk7a
Как сделать, чтобы первая группа имела зеленый цвет, а вторая красный.

[DrgLena]

К-М строится по неполным данным, если у вас есть для каждого временного интервала полные данные, жив - умер, то вам не нужны К-М. Для неполных данных вводятся некоторые понятия для каждого интервала есть понятия введенных в интервал и подверженных риску. число подверженых риску=число введенных в интервал минус половина не умерших. С сензурированными данными знакомы? Постройте таблицы выживаемости и укажите 8 интервалов и получите эти цифры. В R я это не делала. Кокс регрессия с предиктором группа странно выглядит, там есть инфекция, вроде, в данных.