Distribuição censurada com medidas estatísticas

O peso corporal dos homens adultos nos EUA é modelado com uma distribuição normal com média de 191 libras e desvio padrão de 70 libras. Considerando que balanças de banheiro tem um limite máximo de 300 libras, ache a distribuição de peso medido com uma balança de banheiro genérica.

In[1]:=

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

Out[1]=

Função de distribuição cumulativa.

In[2]:=

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

Out[2]=

O peso médio, considerando que a censura é menor do que a da distribuição original.

In[3]:=

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

Out[3]=

O peso médio de acordo com a distribuição censurada é a mesmo com o de acordo com a distribuição original.

In[4]:=

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

Out[4]=