Сравнение коэффициентов выживаемости для экспериментальной и контрольной групп 

Использование команды SurvivalModelFit для визуального сравнения кривых выживаемости и их доверительных интервалов для экспериментальной и контрольной групп.

In[1]:=

X trt = EventData[{10, 7, 32, 23, 22, 6, 16, 34, 32, 25, 11, 20, 19, 6, 17, 35, 6, 13, 9, 6, 10}, {0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1}]; ctr = EventData[{1, 22, 3, 12, 8, 17, 2, 11, 8, 12, 2, 5, 4, 15, 8, 23, 5, 11, 4, 1, 8}];

Взвешенный логранговый критерий LogRankTest по Геену подтверждает визуальное впечатление о существенном различии в кривых интенсивности отказов.

In[2]:=

X LogRankTest[{trt, ctr}, "Gehan", "TestDataTable"]

Out[2]=