Новое в системе Wolfram Mathematica 9 › Анализ выживаемости

Время наступления ретракции для пациентов с раком груди

Паценты, у которых был диагностирован рак молочной железы, прошли курс лечения радиотерапией, а время наступления ретракции их молочной железы было задокументировано. Поскольку пациенты приходили на обследование только один раз в неделю, и иногда пропускали запланированные обследования, известно только, что время наступления ретракции случилось между обследованиями.

In[1]:=

data = \!\(\*
TagBox[
RowBox[{"EventData", "[", 
PanelBox["46",
FrameMargins->Small], "]"}],
InterpretTemplate[EventData[Automatic, 
Map[Developer`ToPackedArray, {{{0, 7}, {0, 8}, {0, 5}, {4, 11}, {5, 
          12}, {5, 11}, {6, 10}, {7, 16}, {7, 14}, {11, 15}, {11, 
          18}, {15, 
DirectedInfinity[1]}, {17, 
DirectedInfinity[1]}, {17, 25}, {17, 25}, {18, 
DirectedInfinity[1]}, {19, 35}, {18, 26}, {22, 
DirectedInfinity[1]}, {24, 
DirectedInfinity[1]}, {24, 
DirectedInfinity[1]}, {25, 37}, {26, 40}, {27, 34}, {32, 
DirectedInfinity[1]}, {33, 
DirectedInfinity[1]}, {34, 
DirectedInfinity[1]}, {36, 44}, {36, 48}, {36, 
DirectedInfinity[1]}, {36, 
DirectedInfinity[1]}, {37, 44}, {37, 
DirectedInfinity[1]}, {37, 
DirectedInfinity[1]}, {37, 
DirectedInfinity[1]}, {38, 
DirectedInfinity[1]}, {40, 
DirectedInfinity[1]}, {45, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}, {46, 
DirectedInfinity[1]}}, None, None}]]& ],
Editable->False,
SelectWithContents->True,
Selectable->True]\);