2021_tesis_Influencia operador en conformacion canales radiculares

#df

df <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=362346395&single=true&output=csv")

#packages

#analisis para transporte

df %>% 
 group_by(Grupo, mm) %>% 
  summarise(n=n(),  promedio = mean(`valor absoluto`), sd = sd(`valor absoluto`))

`summarise()` regrouping output by 'Grupo' (override with `.groups` argument)

#grafica para valores totales abosolutos

#diferencias para transporte 1 mm

df1 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=215250196&single=true&output=csv")

#t.test para diferencias en el transporte 1mm

t.test(df1$`valor absoluto`~df1$Grupo)

    Welch Two Sample t-test

data:  df1$`valor absoluto` by df1$Grupo
t = -1, df = 23, p-value = 0.2
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.0649  0.0153
sample estimates:
mean in group Especialista   mean in group Estudiante 
                    0.0420                     0.0668 

#diferencias para transporte 2mm

df2 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=1084304635&single=true&output=csv")

#t.test para diferencias en el transporte 2mm

t.test(df2$`valor absoluto`~df2$Grupo)

    Welch Two Sample t-test

data:  df2$`valor absoluto` by df2$Grupo
t = -0.8, df = 19, p-value = 0.4
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.0681  0.0300
sample estimates:
mean in group Especialista   mean in group Estudiante 
                    0.0545                     0.0736 

#diferencias para transporte 3mm

df3 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=46491293&single=true&output=csv")

#t.test para el transporte 3mm

t.test(df3$`valor absoluto`~df3$Grupo) #no existen 

    Welch Two Sample t-test

data:  df3$`valor absoluto` by df3$Grupo
t = -0.6, df = 26, p-value = 0.5
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.0393  0.0206
sample estimates:
mean in group Especialista   mean in group Estudiante 
                    0.0487                     0.0581 

#analisis para centrado

df4 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=1117097778&single=true&output=csv")

#grafica para todos los valores de centrado

#analisis para centrado

df4 %>% 
 group_by(Grupo, mm) %>% 
  summarise(n=n(),  promedio = mean(Centrado), sd = sd(Centrado))

`summarise()` regrouping output by 'Grupo' (override with `.groups` argument)

#diferencias para centrado 2mm

df5 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=492004400&single=true&output=csv")

#t.test para centrado en 2mm

t.test(df5$Centrado~df5$Grupo) #no existen 

    Welch Two Sample t-test

data:  df5$Centrado by df5$Grupo
t = -0.3, df = 26, p-value = 0.7
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.1109  0.0801
sample estimates:
mean in group Especialista   mean in group Estudiante 
                    0.0699                     0.0853 

#diferencias para centrado 4mm

df6 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=1952228251&single=true&output=csv")

#t.test para centrado 4mm

t.test(df6$Centrado~df6$Grupo) #no existen 

    Welch Two Sample t-test

data:  df6$Centrado by df6$Grupo
t = -1, df = 29, p-value = 0.2
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.1762  0.0321
sample estimates:
mean in group Especialista   mean in group Estudiante 
                   -0.1589                    -0.0868 

#diferencias para centrado 6mm

df7 <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vT3zsqDQ1yg7nOjup8UC3_L6yv5ipsRaHF4unCi2DOG2f39Il4i2Gs2zptaV77Tcika5aEeyZNtqWcN/pub?gid=2094139434&single=true&output=csv")

#t.test para centrado 6mm

t.test(df7$Centrado~df7$Grupo) #no existen 

    Welch Two Sample t-test

data:  df7$Centrado by df7$Grupo
t = -1, df = 29, p-value = 0.2
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.1762  0.0321
sample estimates:
mean in group Especialista   mean in group Estudiante 
                   -0.1589                    -0.0868