New in Wolfram
Mathematica
8: Distribuciones de fórmula, no paramétricas y derivadas
◄
previous
|
next
►
Algoritmos de núcleo
Compare modelos de confiabilidad paramétricos y no paramétricos
Una comparación de estimaciones de NPMLE y MLE de la función de confiabilidad para algunas sogas fabricadas usando
SurvivalDistribution
y
CensoredDistribution
, respectivamente.
In[1]:=
X
data = {100, 43, 100, 100, 63, 26, 100, 100, 100, 100, 100, 100, 100, 69, 58, 99, 95};
In[2]:=
X
pars = FindDistributionParameters[data, CensoredDistribution[{0, 100}, WeibullDistribution[a, b]]]; sf[x_] = SurvivalFunction[ CensoredDistribution[{-Infinity, 100}, WeibullDistribution[a, b]], x] /. pars;
In[3]:=
X
\[ScriptCapitalD] = SurvivalDistribution[Censoring[data, Boole[# >= 100] & /@ data]];
In[4]:=
X
Plot[{SurvivalFunction[\[ScriptCapitalD], x], sf[x]}, {x, 0, 120}, PlotPoints -> 100, Exclusions -> None, Filling -> {1 -> {2}}, PlotStyle -> Thick, Frame -> {{True, False}, {True, False}}, FrameLabel -> (Style[#, FontFamily -> "Verdana", Bold, 12] &) /@ {"Force", "Reliability"}, ImageSize -> 500]
Out[4]=