Wolfram Language™

Zensierte Verteilung mit Mengen

Das Körpergewicht männlicher Erwachsener in den USA wird mit einer Normalverteilung mit dem Mittelwert von 191 Pfund und einer Standardabweichung von 70 Pfund modelliert. Unter der Annahme, dass Badezimmerwaagen eine Obergrenze von 300 Pfund haben, ermitteln Sie die Gewichtsverteilung so, wie sie mit einer gewöhnlichen Badezimmerwaage gemessen wird.

In[1]:=

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

Out[1]=

Kumulative Verteilungsfunktion.

In[2]:=

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

Out[2]=

Das Durchschnittsgewicht der zensierten Verteilung ist niedriger als das der ursprünglichen Verteilung.

In[3]:=

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

Out[3]=

Das Mediangewicht nach der zensierten Verteilung ist dasselbe wie das der ursprünglichen Verteilung.

In[4]:=

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

Out[4]=