Distribución censurada con cantidades
El peso corporal de hombres adultos en los Estados Unidos se modela con distribución normal con media de 191 lbs y desviación típica de 70 lbs. Suponiendo que las básculas de baño tienen un límite máximo de 300 lbs, encuentre la distribución de peso medido con una báscula de baño genérica.
In[1]:=
![Click for copyable input](assets.es/censored-distribution-with-quantities/In_106.png)
\[ScriptCapitalD] =
CensoredDistribution[{Quantity[0, "Pounds"],
Quantity[300, "Pounds"]}, \[ScriptD] =
NormalDistribution[Quantity[191, "Pounds"],
Quantity[70, "Pounds"]]]
Out[1]=
![](assets.es/censored-distribution-with-quantities/O_77.png)
Función de distribución acumulativa.
In[2]:=
![Click for copyable input](assets.es/censored-distribution-with-quantities/In_107.png)
Plot[CDF[\[ScriptCapitalD], Quantity[x, "Pounds"]] // Evaluate, {x, 0,
350}, Filling -> Axis, Exclusions -> None, AxesLabel -> {"lb"}]
Out[2]=
![](assets.es/censored-distribution-with-quantities/O_78.png)
El peso promedio, suponiendo censura es menor que la distribución original.
In[3]:=
![Click for copyable input](assets.es/censored-distribution-with-quantities/In_108.png)
{Mean[\[ScriptCapitalD]], Mean[\[ScriptD]]} // N
Out[3]=
![](assets.es/censored-distribution-with-quantities/O_79.png)
El peso medio de la distribución censurada es el mismo que aquel de acuerdo con la distribución original.
In[4]:=
![Click for copyable input](assets.es/censored-distribution-with-quantities/In_109.png)
{Median[\[ScriptCapitalD]], Median[\[ScriptD]]}
Out[4]=
![](assets.es/censored-distribution-with-quantities/O_80.png)