Der Vierfelder  Test      Zurück

Ein einfaches , aber sehr wichtiges Werkzeug zur statistischen Bewertung von Merkmalen in 2 Gruppen. Wenn man den Vierfeldertest begriffen hat , dann hat man schon sehr viel in Sachen medizinische Statistik begriffen.

Beschreibung des Vierfeldertest

Screenshot

Quelltext

Download

Links:

http://hepatitis-c.de/signi/

http://www.uni-kiel.de/medinfo/fol_biom/notes10/sld018.htm

http://www.mh-hannover.de/institute/biometrie/JUMBO/bio/vierf.html

Quelltext

Hauptcode der Signifikanzberechnung

Sub Befehl1_Click ()

• Rem Fehlerroutine bei leeren Feldern einbauen
• text5.Text = ""
• N1 = Val(text1.Text)
• N2 = Val(text2.Text)
• M1 = Val(text3.Text)
• M2 = Val(text4.Text)

Rem ERWARTUNGSWERT EN1

• R1 = N1 + M1
• NN = N1 + N2
• N = N1 + N2 + M1 + M2
• E1 = R1 * NN / N

text5.Text = text5.Text + "Erwartungswert E1 =" + Str(E1) + Chr(13) + Chr(10)

Rem ERWARTUNGSWERT EN2

• MM = M1 + M2
• E2 = R1 * MM / N

text5.Text = text5.Text + "Erwartungswert E2 =" + Str(E2) + Chr(13) + Chr(10)

Rem ERWARTUNGSWERT EN3

• R2 = N2 + M2
• E3 = R2 * NN / N

text5.Text = text5.Text + "Erwartungswert E3 =" + Str(E3) + Chr(13) + Chr(10)

Rem ERWARTUNGSWERT EN4

• E4 = R2 * MM / N

text5.Text = text5.Text + "Erwartungswert E4 =" + Str(E4) + Chr(13) + Chr(10)

Rem PROBE=0?

• S = E1 + E2 + E3 + E4
• P = S - N

text5.Text = text5.Text + "Probe" + Str(S) + "-" + Str(N) + "=" + Str(P) + "=0?" + Chr(13) + Chr(10)

Rem CHI^2

• D1 = (N1 - E1) ^ 2: C1 = D1 / E1
• D2 = (M1 - E2) ^ 2: C2 = D2 / E2
• D3 = (N2 - E3) ^ 2: C3 = D3 / E3
• D4 = (M2 - E4) ^ 2: C4 = D4 / E4
• C = C1 + C2 + C3 + C4

text5.Text = text5.Text + "CHI-QUADRAT=" + Str(C) + Chr(13) + Chr(10)

• If C - 3.841 > 0 Then text5.Text = text5.Text + "Bei P=0.05 besteht ein signifikanter Unterschied"
• If C - 3.841 <= 0 Then text5.Text = text5.Text + "Bei P=0.05 besteht kein signifikanter Unterschied "

End Sub

Download

• 4FELD.EXE ,ausführbares Programm
• 4FELD.FRM ,Quelltext
• 4FELD.FRX , Icon
• 4FELD.MAK , Vb Projekt
• 4FELD.ZIP , alles zusammen komprimiert mit WINZIP

Wer dieses Programm auf VB 6.0 umsetzen will , kann das gerne tun.

Beschreibung des Vierfeldertest

Der Vierfeldertest dient dazu, die Häufigkeit eines Merkmals in zwei unabhängigen Gruppen zu vergleichen

Beispiel:

Man befragt 50 Frauen ( GRUPPE 1) , ob sie rauchen oder nicht.

Dasselbe macht man mit 50 Männern ( GRUPPE 2).

Man erhält das Ergebnis :

FRAUEN : 25 Raucher 25 Nichtraucher

MÄNNER : 30 Raucher 20 Nichtraucher

Kann man anhand dieser Befragung schon sagen , ob es mehr Nichtraucher unter den Frauen gibt ?

Diese Frage beantwortet der Vierfelder Test .

Dazu muß man die Werte beider Gruppen eingeben und eine Irrtumswahrscheinlichkeit wählen. ( Hier p = 0.05 )

Wollen Sie das Ergebnis mal testen ?

• Erwartungswert E1 = 27.5
• Erwartungswert E2 = 27.5
• Erwartungswert E3 = 22.5
• Erwartungswert E4 = 22.5
• Probe 100- 100= 0=0?
• CHI-QUADRAT= 1.01010101010101

Bei P=0.05 besteht kein signifikanter Unterschied

2 Schlüße kann man aus diesem Ergebnis ziehen :

==> Entweder es gibt tatsächlich keinen Unterschied in der Verteilung des Merkmals Raucher/Nichtraucher ODER

==> die Stichproben aus beiden Gruppen waren zu klein

Probieren Sie mal , dieselben Werte nur alle mal 10 genommen.

Frauen: 250 Nichtraucher 250 Raucher

Männer: 300 Nichtraucher 200 Raucher

Wollen Sie noch einmal testen , dann drücken Sie auf die Taste SIGNIFIKANZBERECHNUNG !

Erwartungswert E1 = 275

Erwartungswert E2 = 275

Erwartungswert E3 = 225

Erwartungswert E4 = 225

Probe 1000- 1000= 0=0?

CHI-QUADRAT= 10.1010101010101

Bei P=0.05 besteht ein signifikanter Unterschied

Dann sieht das Ergebnis anders aus.

==> Wenn man kleine Unterschiede finden will,braucht man also große Zahlen in den Stichproben.

email  Zurück