Comment comparer la répétabilité (ICC) de différents groupes?

J'ai calculé les valeurs ICC pour deux groupes et je voudrais maintenant comparer les valeurs ICC pour déterminer si les groupes diffèrent dans leur répétabilité. Dans la littérature, les gens ont simplement utilisé des tests t pour comparer la répétabilité, mais je ne sais pas comment procéder.

Par exemple, avec les données fictives:

ID  gr  day behaviour
1   1   1   0.361
2   1   1   0.232
3   1   1   0.240
4   1   1   0.693
5   1   1   0.483
6   1   1   0.267
7   2   1   0.180
8   2   1   0.515
9   2   1   0.485
10  2   1   0.567
11  2   1   0.000
12  2   1   0.324
1   1   2   0.055
2   1   2   0.407
3   1   2   0.422
4   1   2   0.174
5   1   2   0.613
6   1   2   0.311
7   2   2   0.631
8   2   2   0.283
9   2   2   0.512
10  2   2   0.127
11  2   2   0.000
12  2   2   0.000

Je peux obtenir les mesures de répétabilité pour les groupes 1 et 2 comme suit:

library(ICC)
g1 <- ICCest(ID, behaviour, data=dummy[dummy$gr=="1",])
g2 <- ICCest(ID, behaviour, data=dummy[dummy$gr=="2",])

Mais comment puis-je maintenant déterminer si la répétabilité du groupe 1 est différente de celle du groupe 2?

Laissant de côté les problèmes matériels concernant la question d'étude et les données de démonstration (et la taille de l'échantillon pour obtenir une estimation raisonnable d'un ICC), les résultats que vous obtenez de la ICCestfonction sont assortis d'intervalles de confiance: comme point de départ pour comparer les groupes, vous pouvez déterminer si il y a chevauchement entre chaque intervalle de confiance et l'estimation ponctuelle de l'autre groupe de l'ICC.

Quoi qu'il en soit, la communication de l'estimation ponctuelle de l'ICC et de l'intervalle de confiance pour chaque groupe va être plus utile (et je recommanderais donc de les déclarer dans tous les cas) que de déclarer uniquement les estimations ponctuelles et le résultat d'une sorte de test d'hypothèse.

dummy <- structure(list(ID = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,
                  11L, 12L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L), 
           gr = c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
                  1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L), 
           day = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 
                   2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), 
           behaviour = c(0.361, 0.232, 0.24, 0.693, 0.483, 0.267, 0.18, 0.515, 0.485,
                         0.567, 0, 0.324, 0.055, 0.407, 0.422, 0.174, 0.613, 0.311, 
                         0.631, 0.283, 0.512, 0.127, 0, 0)), 
           .Names = c("ID", "gr", "day", "behaviour"), 
          class = "data.frame", row.names = c(NA, -24L))

library(ICC)
ICCest(ID, behaviour, data=dummy[dummy$gr=="1",])
# First few lines of console output:
#$ICC
#[1] -0.1317788
#$LowerCI
#[1] -0.7728603
#$UpperCI
#[1] 0.6851783

ICCest(ID, behaviour, data=dummy[dummy$gr=="2",])
# First few lines of console output:
#$ICC
#[1] 0.1934523
#$LowerCI
#[1] -0.6036826
#$UpperCI
#[1] 0.8233986