kappa_Dra_Diaz

los pack

library("irr")

Loading required package: lpSolve

abro df

el kappa

kappam.fleiss(df, detail=TRUE)

 Fleiss' Kappa for m Raters

 Subjects = 60 
   Raters = 2 
    Kappa = 0.622 

        z = 7.2 
  p-value = 5.82e-13 

   Kappa      z p.value
1  0.564  4.366   0.000
2 -0.111 -0.861   0.389
3  0.915  7.086   0.000
4  0.900  6.971   0.000

kappa fran_vs_leonardo

kappam.fleiss(df2, detail=TRUE)

 Fleiss' Kappa for m Raters

 Subjects = 20 
   Raters = 2 
    Kappa = 0.823 

        z = 5.22 
  p-value = 1.79e-07 

   Kappa      z p.value
1  0.792  3.540   0.000
2 -0.053 -0.235   0.814
3  1.000  4.472   0.000
4  1.000  4.472   0.000