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

Эффективность экспериментального лекарственного препарата

Исследователи изучают эффективность нового лекарства для подавления роста опухоли у больных раком. Сорок три пациента прошли курс лечения ранее используемым препаратом (A), а 76 прошли курс лечения новым препаратом (B).

In[1]:=

drugA = \!\(\*
TagBox[
RowBox[{"EventData", "[", 
PanelBox["43",
FrameMargins->Small], "]"}],
InterpretTemplate[EventData[Automatic, 
Map[Developer`ToPackedArray, {CompressedData["
1:eJxTTMoPSmVkYGDQZoCBH/YQmscBQguh0WJQWhGNVobSqlBaHUrrQ+gGAyht
BKXNobQVVB0LGs2Dg0Z3hxQaLUeAJuReTTRaG0rrotINpmi0GRptCaWtHQBA
rxg3
"], {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1,
          1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
         1}, None}]]& ],
Editable->False,
SelectWithContents->True,
Selectable->True]\);
drugB = \!\(\*
TagBox[
RowBox[{"EventData", "[", 
PanelBox["76",
FrameMargins->Small], "]"}],
InterpretTemplate[EventData[Automatic, 
Map[Developer`ToPackedArray, {CompressedData["
1:eJxTTMoPSmVkYGDwYYCBB/ak0SwOqDQPlJaC0voO5JlLiP5BgEZ3Fy6ah0ha
CActRiQNCw85HLQiDloZjVbFQauj0ZoEaF1UusEAjTaC0sY4aBMobQalLaC0
JZS2QqNtHABGlzQi
"], {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
          1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
         1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
         1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}, None}]]& ],
Editable->False,
SelectWithContents->True,
Selectable->True]\);

Функции виживаемости пересекаются.

In[2]:=

Out[2]=

Логранговый критерий (команда LogRankTest) не выявляет существенных отличий в соответствующих кривых совокупных отказов.

In[3]:=

Out[3]=

Предположим, что учёные считают, что новое лекарственное средство будет более эффективным в предотвращении позднего развития опухолей. Следующие веса, найденные по методу Флеминга-Харрингтона, придают особое значение точкам позднего развития.

In[4]:=

Out[4]=

Логранговый критерий (команда LogRankTest) для взвешенных данных выявляет существенное различие в кривых совокупных отказов.

In[5]:=

Out[5]=