Components Based on Survival Analysis

Create a ReliabilityDistribution based on EventData and compute the mean time to failure.

In[1]:=

{Subscript[\[ScriptCapitalD], x], Subscript[\[ScriptCapitalD], 
   y]} = {EstimatedDistribution[\!\(\*
TagBox[
RowBox[{"EventData", "[", 
PanelBox["50",
FrameMargins->Small], "]"}],
InterpretTemplate[EventData[Automatic, 
Map[Developer`ToPackedArray, {CompressedData["
1:eJwBnQFi/iFib1JlAQAAADIAAADQ3547DrUvQIQH/1AEx0FAikfdsHHFFED9
O0Tz0iUoQJbZUzbvizBAd8rtjt46I0BMb2yE1YopQIRL2MvGxDhAuKxcgjNO
9j98isSh9HEwQGACdg8c9hFAbkKKgMR5OUA1oJzinZj5P5dxHcDNFOI/6o2Z
cnwrHUBS9BZbXJEgQOw4OM0o1QxAYnf7cd+KMUCHS83GDT3BP/5+5OQWKyVA
WUh3saaHJkBYJNAaXyoyQCLBQZkgqwpACWrdV8BfOUAi7k4ZYRwwQHv+/6X4
ejxAwAdcOis8GkAVY7fN8fnwP52X7Smk2CJAZ8vk4AMJJUDN/dgTnx/QP0Cf
ayS2zgxAMO/WV79fI0CkyEP0HVoEQOhwRP1dEj1AEvXlhruMLUDlZP89yLwW
QAz3RMX69cY/oUi4Y3oy/z9rn8SC0twjQFF0ZV+wqRdAY1vvc5NFLkDETgEX
S4MmQKi1qnpUXR9AZCM2NCooIkBQjyAep7nuP1sjVWAPDiJA/mzSagVQOECY
eL30tgkdQJaw/iUItyVA2Fi1bw==
"], {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
            0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
           0, 0, 0, 0, 0, 0, 0, 0, 0}, None}]]& ],
Editable->False,
SelectWithContents->True,
Selectable->True]\), ExponentialDistribution[\[Lambda]]],
   EstimatedDistribution[\!\(\*
TagBox[
RowBox[{"EventData", "[", 
PanelBox["50",
FrameMargins->Small], "]"}],
InterpretTemplate[EventData[Automatic, 
Map[Developer`ToPackedArray, {{
           4, 16.69480179872995, 15.251186331936243`, 4, 
            12.577624424063698`, 19.46381541149813, 4, 
            9.993889715851981, 4, 4, 4, 4, 8.172470075408263, 
            8.020085607701356, 18.540570163339723`, 4, 4, 
            8.662605384742943, 4, 12.355915137471246`, 4, 4, 4, 
            3.5808355968708847`, 2.0556319851456393`, 4, 4, 4, 
            15.702027562228778`, 16.71101495117594, 8.340759389826768,
             18.94036959422534, 4, 7.395256929637292, 4, 4, 4, 4, 4, 
            15.673270449494186`, 16.963789363738762`, 4, 4, 
            3.8812130816165054`, 4, 4, 14.471223454127305`, 4, 4, 
            4}, {1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0,
            1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 
           1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1}, None}]]& ],
Editable->False,
SelectWithContents->True,
Selectable->True]\), WeibullDistribution[a, b]]};

In[2]:=

In[3]:=

Out[3]=