Verteilung des Stichprobenanteilswertes/Beispiel: Urne

Aus MM*Stat

< Verteilung des Stichprobenanteilswertes
Version vom 23. Januar 2019, 16:58 Uhr von Siskosth (Diskussion | Beiträge) (Siskosth verschob die Seite Verteilung des Stichprobenanteilswertes/Urne nach Verteilung des Stichprobenanteilswertes/Beispiel: Urne)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Wechseln zu: Navigation, Suche

Beispiele

Urne

Aus einer Urne mit Kugeln, unter denen ein Anteil roter Kugeln ist, werden Stichproben im Umfang ohne Zurücklegen gezogen.

Bestimmen Sie die Wahrscheinlichkeiten, in den Stichproben Anteilswerte roter Kugeln zwischen und zu finden.

Grundgesamtheit vom Umfang N=5

Aus einer Grundgesamtheit mit dem Umfang und wird eine uneingeschränkte Zufallsstichprobe vom Umfang entnommen.

Die Zufallsvariable als Summe der 3 Stichprobenvariablen beinhaltet die Anzahl der roten Kugeln in der Stichprobe und die Zufallsvariable den Anteil der roten Kugeln in der Stichprobe.

  • Welcher Verteilung genügt die Anzahl bzw. der Anteil der roten Kugeln in der Stichprobe?
  • Wie groß ist die Wahrscheinlichkeit, in der Stichprobe Anteilswerte zwischen und zu finden ?

Da die Grundgesamtheit endlich ist und bei einer uneingeschränkten Zufallsstichprobe die Elemente ohne Zurücklegen entnommen werden, ist die Stichprobenfunktion hypergeometrisch verteilt:

, wobei ist.

Die gesuchte Wahrscheinlichkeit ist .

Wegen und somit und entspricht dies der Wahrscheinlichkeit .

.

<R output="display">

pdf(rpdf, width=7, height=7)

x=c(0:2) H1 <- dhyper(x, n=3, m=2, k=3) layout(1:2) plot(H1, col="white", xlab="", ylab="", xaxt="n", yaxt="n", xpd=TRUE, xlim= c(0, 2), ylim=c(0.0, 0.6)) axis(side=1, at=c(0,1,2)) axis(side=2, at=c(0,0.2,0.4,0.6), las=1) lines(c(0:2), H1, type="h", lwd=2, col="BLUE") plot(H1, col="white", xlab="", ylab="", xaxt="n", yaxt="n", xpd=TRUE, xlim= c(0, 3), ylim=c(0.0, 1)) axis(side=1, at=c(0,1,2,3)) axis(side=2, at=c(0.1,0.4,0.7,1), las=1) lines(c(0, 1), c(0.1, 0.1), type="l", lwd=2, col="RED") lines(c(1, 2), c(0.7, 0.7), type="l", lwd=2, col="RED") lines(c(2, 3), c(1.0, 1.0), type="l", lwd=2, col="RED")

</R>

Grundgesamtheit vom Umfang N=1000

Aus einer Grundgesamtheit mit dem Umfang und wird eine uneingeschränkte Zufallsstichprobe vom Umfang entnommen.

Die Zufallsvariable als Summe der 4 Stichprobenvariablen beinhaltet die Anzahl der roten Kugeln in der Stichprobe und die Zufallsvariable den Anteil der roten Kugeln in der Stichprobe.

Da eine uneingeschränkte Zufallsstichprobe gezogen wird und die Grundgesamtheit endlich ist, ist die Zufallsvariable hypergeometrisch verteilt: .

Da aber zum einen der Umfang der Grundgesamtheit sehr groß und zum anderen der Auswahlsatz ist, kann die Endlichkeit der Grundgesamtheit vernachlässigt und approximativ die Binomialverteilung mit verwendet werden, so dass gilt:

Die gesuchte Wahrscheinlichkeit ist .

Wegen und somit und entspricht dies der Wahrscheinlichkeit .

und findet man in der Tabelle der Verteilungsfunktion der Binomialverteilung .

<R output="display">

pdf(rpdf, width=7, height=7)

x=c(0:4) H1 <- dbinom(x, size=4, prob=0.2) layout(1:2) plot(H1, col="white", xlab="", ylab="", xaxt="n", yaxt="n", xpd=TRUE, xlim= c(0, 4), ylim=c(0.0, 0.41)) axis(side=1, at=c(0,1,2,3,4)) axis(side=2, at=c(0,0.1,0.2,0.3, 0.4), las=1) lines(c(0:4), H1, type="h", lwd=2, col="BLUE") plot(H1, col="white", xlab="", ylab="", xaxt="n", yaxt="n", xpd=TRUE, xlim= c(0, 5), ylim=c(0.4, 1)) axis(side=1, at=c(0,1,2, 3, 4, 5)) axis(side=2, at=c(0.4,0.6,0.8,1), las=1) lines(c(0, 1), c(0.4096, 0.4096), type="l", lwd=2, col="RED") lines(c(1, 2), c(0.8192, 0.8192), type="l", lwd=2, col="RED") lines(c(2, 3), c(0.95, 0.95), type="l", lwd=2, col="RED") lines(c(3, 4), c(0.97, 0.97), type="l", lwd=2, col="RED") lines(c(4, 5), c(1.0, 1.0), type="l", lwd=2, col="RED")


</R>

Grundgesamtheit vom Umfang N=2500

Aus einer Grundgesamtheit mit dem Umfang und wird eine uneingeschränkte Zufallsstichprobe vom Umfang entnommen.

Die Zufallsvariable als Summe der 100 Stichprobenvariablen beinhaltet die Anzahl der roten Kugeln in der Stichprobe und die Zufallsvariable den Anteil der roten Kugeln in der Stichprobe.

Da die Grundgesamtheit endlich ist und eine uneingeschränkte Zufallsstichprobe gezogen wird, ist die Zufallsvariable hypergeometrisch verteilt: .

Da der Stichprobenumfang groß ist und die Kriterien

und

erfüllt sind, kann approximativ die Normalverteilung verwendet werden.

Es sind:

.

Somit wird die hypergeometrische Verteilung durch die approximiert.

Dabei wird zur Vereinfachung auf die Stetigkeitskorrektur verzichtet.

Die gesuchte Wahrscheinlichkeit ist :

Wegen und gilt:

.

und findet man in der Tabelle der Verteilungsfunktion der Standardnormalverteilung.

<R output="display">

pdf(rpdf, width=7, height=7)

layout(1:2) curve(from=-10, to=10, dnorm(x, mean=0, sd=1), col="black", ylim=c(0,10), lty=1, lwd=2, xlim= c(-10, 10), xlab="", ylab="", xaxt="n", yaxt="n") curve(from=-10, to=10, dnorm(x, mean=0, sd=0.04), col="blue",lty=1, lwd=2, font.lab=2, bty="l",, add=T) axis(side=1, at=c(-10, 0, 10)) axis(side=2, at=c(0, 5, 10), las=1) curve(from=-10, to=10, pnorm(x, mean=0, sd=1), col="black", ylim=c(0,1), lty=1, lwd=2, xlim= c(-10, 10), xlab="", ylab="", xaxt="n", yaxt="n") curve(from=-10, to=10, pnorm(x, mean=0, sd=0.04), col="red",lty=1, lwd=2, font.lab=2, bty="l",, add=T) axis(side=1, at=c(-10, 0, 10)) axis(side=2, at=c(0, 0.5, 1), las=1)

</R>