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]:=
![Click for copyable input](assets.pt-br/censored-distribution-with-quantities/In_109.png)
\[ScriptCapitalD] =
CensoredDistribution[{Quantity[0, "Pounds"],
Quantity[300, "Pounds"]}, \[ScriptD] =
NormalDistribution[Quantity[191, "Pounds"],
Quantity[70, "Pounds"]]]
Out[1]=
![](assets.pt-br/censored-distribution-with-quantities/O_74.png)
Função de distribuição cumulativa.
In[2]:=
![Click for copyable input](assets.pt-br/censored-distribution-with-quantities/In_110.png)
Plot[CDF[\[ScriptCapitalD], Quantity[x, "Pounds"]] // Evaluate, {x, 0,
350}, Filling -> Axis, Exclusions -> None, AxesLabel -> {"lb"}]
Out[2]=
![](assets.pt-br/censored-distribution-with-quantities/O_75.png)
O peso médio, considerando que a censura é menor do que a da distribuição original.
In[3]:=
![Click for copyable input](assets.pt-br/censored-distribution-with-quantities/In_111.png)
{Mean[\[ScriptCapitalD]], Mean[\[ScriptD]]} // N
Out[3]=
![](assets.pt-br/censored-distribution-with-quantities/O_76.png)
O peso médio de acordo com a distribuição censurada é a mesmo com o de acordo com a distribuição original.
In[4]:=
![Click for copyable input](assets.pt-br/censored-distribution-with-quantities/In_112.png)
{Median[\[ScriptCapitalD]], Median[\[ScriptD]]}
Out[4]=
![](assets.pt-br/censored-distribution-with-quantities/O_77.png)