#packes
library("tidyverse")
library("irr")#df_ICC
df <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSdeZ3opF_gmBrD4X2rbGwIFf1mZZboGlFCZnDn8Fe6LSl9Kx3g8HCKnZDXzzWHDfKe1z1-ZYSWUrgd/pub?gid=1534353148&single=true&output=csv")#wilcox.test
wilcox.test(df$`Item [Preparación de la cavidad de acceso]estudiante`,df$`Item [Preparación de la cavidad de acceso]docente`)
cannot compute exact p-value with ties
Wilcoxon rank sum test with continuity correction
data: df$`Item [Preparación de la cavidad de acceso]estudiante` and df$`Item [Preparación de la cavidad de acceso]docente`
W = 1151.5, p-value = 0.3725
alternative hypothesis: true location shift is not equal to 0#wilcox.test
wilcox.test(df1$`Item [Determinación de la longitud de trabajo]estudiante`, df1$`Item [Determinación de la longitud de trabajo]docente`)
cannot compute exact p-value with ties
Wilcoxon rank sum test with continuity correction
data: df1$`Item [Determinación de la longitud de trabajo]estudiante` and df1$`Item [Determinación de la longitud de trabajo]docente`
W = 1104, p-value = 0.4061
alternative hypothesis: true location shift is not equal to 0#wilcox.test
wilcox.test(df1$`Item [Densidad de la obturación del conducto radicular]estudiante`, df1$`Item [Densidad de la obturación del conducto radicular]docente`)
cannot compute exact p-value with ties
Wilcoxon rank sum test with continuity correction
data: df1$`Item [Densidad de la obturación del conducto radicular]estudiante` and df1$`Item [Densidad de la obturación del conducto radicular]docente`
W = 1089, p-value = 0.775
alternative hypothesis: true location shift is not equal to 0#wilcox.test
wilcox.test(df1$`Item [Longitud de la obturación del conducto radicular]`,df1$`Item [Longitud de la obturación del conducto radicular]_1`)
cannot compute exact p-value with ties
Wilcoxon rank sum test with continuity correction
data: df1$`Item [Longitud de la obturación del conducto radicular]` and df1$`Item [Longitud de la obturación del conducto radicular]_1`
W = 1007, p-value = 0.6596
alternative hypothesis: true location shift is not equal to 0#wilcox.test
wilcox.test(df1$`Item [Conicidad de la obturación del conducto radicular]`,df1$`Item [Conicidad de la obturación del conducto radicular]_1`)
cannot compute exact p-value with ties
Wilcoxon rank sum test with continuity correction
data: df1$`Item [Conicidad de la obturación del conducto radicular]` and df1$`Item [Conicidad de la obturación del conducto radicular]_1`
W = 1087, p-value = 0.7843
alternative hypothesis: true location shift is not equal to 0#wilcox.test
wilcox.test(df1$`TOTAL SCORE Docente`, df1$`TOTAL SCORE Estudiante`)
cannot compute exact p-value with ties
Wilcoxon rank sum test with continuity correction
data: df1$`TOTAL SCORE Docente` and df1$`TOTAL SCORE Estudiante`
W = 1041, p-value = 0.8951
alternative hypothesis: true location shift is not equal to 0#ICC
#Select Preparación de la cavidad de acceso
df2 <- df %>%
select(`Item [Preparación de la cavidad de acceso]estudiante`, `Item [Preparación de la cavidad de acceso]docente`)#ICC para Preparación de la cavidad de acceso
icc(df2, model = "oneway", type = "agreement") Single Score Intraclass Correlation
Model: oneway
Type : agreement
Subjects = 46
Raters = 2
ICC(1) = 0.679
F-Test, H0: r0 = 0 ; H1: r0 > 0
F(45,46) = 5.24 , p = 5.96e-08
95%-Confidence Interval for ICC Population Values:
0.489 < ICC < 0.809#Select Determinación de la longitud de trabajo
df3 <- df %>%
select(`Item [Determinación de la longitud de trabajo]estudiante`, `Item [Determinación de la longitud de trabajo]docente`)#ICC para Determinación de la longitud de trabajo
icc(df3, model = "oneway", type = "agreement") Single Score Intraclass Correlation
Model: oneway
Type : agreement
Subjects = 46
Raters = 2
ICC(1) = 0.297
F-Test, H0: r0 = 0 ; H1: r0 > 0
F(45,46) = 1.84 , p = 0.0206
95%-Confidence Interval for ICC Population Values:
0.012 < ICC < 0.538#Select longitud
df4 <- df %>%
select(`Item [Longitud de la obturación del conducto radicular]`, `Item [Longitud de la obturación del conducto radicular]_1`)#ICC longitud
icc(df4, model = "oneway", type = "agreement") Single Score Intraclass Correlation
Model: oneway
Type : agreement
Subjects = 46
Raters = 2
ICC(1) = 0.333
F-Test, H0: r0 = 0 ; H1: r0 > 0
F(45,46) = 2 , p = 0.0107
95%-Confidence Interval for ICC Population Values:
0.052 < ICC < 0.565#Select densidad
df5 <- df %>%
select(`Item [Densidad de la obturación del conducto radicular]estudiante`, `Item [Densidad de la obturación del conducto radicular]docente`)#ICC densidad
icc(df5, model = "oneway", type = "agreement") Single Score Intraclass Correlation
Model: oneway
Type : agreement
Subjects = 46
Raters = 2
ICC(1) = 0.496
F-Test, H0: r0 = 0 ; H1: r0 > 0
F(45,46) = 2.97 , p = 0.000175
95%-Confidence Interval for ICC Population Values:
0.245 < ICC < 0.685#Select coniciddad
df6 <- df %>%
select(`Item [Conicidad de la obturación del conducto radicular]`, `Item [Conicidad de la obturación del conducto radicular]_1`)#ICC conicidad
icc(df6, model = "oneway", type = "agreement") Single Score Intraclass Correlation
Model: oneway
Type : agreement
Subjects = 46
Raters = 2
ICC(1) = 0.499
F-Test, H0: r0 = 0 ; H1: r0 > 0
F(45,46) = 2.99 , p = 0.000159
95%-Confidence Interval for ICC Population Values:
0.249 < ICC < 0.687#Select total score
df7 <- df %>%
select(`TOTAL SCORE Docente`, `TOTAL SCORE Estudiante`)#ICC total score
icc(df7, model = "oneway", type = "agreement") Single Score Intraclass Correlation
Model: oneway
Type : agreement
Subjects = 46
Raters = 2
ICC(1) = 0.713
F-Test, H0: r0 = 0 ; H1: r0 > 0
F(45,46) = 5.98 , p = 6.96e-09
95%-Confidence Interval for ICC Population Values:
0.537 < ICC < 0.83