------A------ --B-- ----C----- ---D--- ---E--- ---F---
1 TOTAL A B C D
2 Cases Entered 938 150 161 478 149
3 Cases Re-Adj 3 - - 3 -
4 Agreement 3 - - 3 -
5 Disagreement - - - - -
6
7
8 A B C D
9 A k(A, B) k(A, C) k(A, D)
10 B k(B, C) k(B, D)
11 C k(C, D)
Function Kappa(YY As Long, YN As Long, _
NY As Long, NN As Long) As Double
' Understanding Interobserver Agreement: The Kappa Statistic, Viera & Garrett
' [URL]http://widhiarso.staff.ugm.ac.id/files/memahami_kesepakatan_antar_rater_dengan_koefisien_kappa_(interobserver_agreement).pdf[/URL]
Dim Pa As Double
Dim Pe As Double
Dim iTot As Long
iTot = YY + YN + NY + NN
Pa = (YY + NN) / iTot
Pe = ((YY + YN) * (YY + NY) + (NY + NN) * (YN + NN)) / iTot ^ 2
Kappa = (Pa - Pe) / (1 - Pe)
End Function
-A- B -C- -D- -E-- -----------F-----------
1 Bob Bob
2 Y N
3 Ali Y 15 5
4 Ali N 10 70 0.57 E4: =Kappa(C3,D3,C4,D4)