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]:=

\[ScriptCapitalD] = CensoredDistribution[{Quantity[0, "Pounds"], Quantity[300, "Pounds"]}, \[ScriptD] = NormalDistribution[Quantity[191, "Pounds"], Quantity[70, "Pounds"]]]

Out[1]=

Función de distribución acumulativa.

In[2]:=

Plot[CDF[\[ScriptCapitalD], Quantity[x, "Pounds"]] // Evaluate, {x, 0, 350}, Filling -> Axis, Exclusions -> None, AxesLabel -> {"lb"}]

Out[2]=

El peso promedio, suponiendo censura es menor que la distribución original.

In[3]:=

{Mean[\[ScriptCapitalD]], Mean[\[ScriptD]]} // N

Out[3]=

El peso medio de la distribución censurada es el mismo que aquel de acuerdo con la distribución original.

In[4]:=

{Median[\[ScriptCapitalD]], Median[\[ScriptD]]}

Out[4]=