New in Mathematica 9 › Survival Analysis

Time to Retraction for Breast Cancer Patients

Breast cancer patients were treated with radiotherapy and the time to breast retraction was recorded. Since patients visited once each week and sometimes missed appointments, the time to retraction is known only to fall on an interval between visits.

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]\);