ODON210_Practicos

paquetes

require("tidyverse")
require("ggthemes")

Cargo data set

df <- read.csv("odon210.csv", header = TRUE, sep=",")
str(df)
df2 <- read_csv("odon210.csv")
summary(df)
str(df2)

Convierto de factor a numero

df$Procedimiento <- as.numeric(df$Procedimiento)
df$Rx <- as.numeric(df$Rx)
df$Inter <- as.numeric(df$Inter)

promedio y desviación

options(digits = 3)
df %>% 
  group_by(docente) %>% 
  summarise(n=n(), Prom = mean(Procedimiento), DE = sd(Procedimiento)) %>% 
ungroup()

Grafico boxplot para procedimiento

df %>% 
  ggplot(aes(x=docente, y=Procedimiento)) +
  geom_boxplot() +
  theme_economist() +
  ggtitle("Boxplot Procedimiento por Docente")

Existe diferencia entre docentes en procedimiento?

diferenciaEntreDocentes <- aov(df$Procedimiento~df$docente)
diferenciaEntreDocentes

Call:
   aov(formula = df$Procedimiento ~ df$docente)

Terms:
                df$docente Residuals
Sum of Squares         7.4     224.6
Deg. of Freedom          3        45

Residual standard error: 2.23
Estimated effects may be unbalanced

summary(diferenciaEntreDocentes)

            Df Sum Sq Mean Sq F value Pr(>F)
df$docente   3    7.4    2.45    0.49   0.69
Residuals   45  224.6    4.99               

No existe diferencia significativa por docente en procedimiento

plot(diferenciaEntreDocentes)

Grafico boxplot para Rx

df %>% 
  ggplot(aes(x=docente, y=Rx)) +
  geom_boxplot() +
  theme_economist() +
  ggtitle("Boxplot Radiografias por Docente")

Existe diferencia entre docentes en radiografias?

diferenciaEntreDocentes <- aov(df$Rx~df$docente)
diferenciaEntreDocentes

Call:
   aov(formula = df$Rx ~ df$docente)

Terms:
                df$docente Residuals
Sum of Squares          24       586
Deg. of Freedom          3        45

Residual standard error: 3.61
Estimated effects may be unbalanced

summary(diferenciaEntreDocentes)

            Df Sum Sq Mean Sq F value Pr(>F)
df$docente   3     24    8.07    0.62   0.61
Residuals   45    586   13.02               

No existe diferencia significativa por docente en procedimiento

plot(diferenciaEntreDocentes)

Grafico boxplot para interpretacion radiologica

df %>% 
  ggplot(aes(x=docente, y=Inter)) +
  geom_boxplot() +
  theme_economist() +
  ggtitle("Boxplot Intepretacion radiologica por Docente")

Existe diferencia entre docentes en interpretacion radiologica?

diferenciaEntreDocentes <- aov(df$Inter~df$docente)
diferenciaEntreDocentes

Call:
   aov(formula = df$Inter ~ df$docente)

Terms:
                df$docente Residuals
Sum of Squares         145       908
Deg. of Freedom          3        45

Residual standard error: 4.49
Estimated effects may be unbalanced

summary(diferenciaEntreDocentes)

            Df Sum Sq Mean Sq F value Pr(>F)  
df$docente   3    145    48.3    2.39  0.081 .
Residuals   45    908    20.2                 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

No existe diferencia significativa por docente en procedimiento

plot(diferenciaEntreDocentes)

Cargo data set

df <- read.csv("sala.csv", header = TRUE, sep=",")
str(df)
summary(df)

Grafico boxplot interpretacion por sala

df %>% 
  ggplot(aes(x=Sala, y=Puntajes)) +
  geom_boxplot() +
  theme_economist() +
  ggtitle("Boxplot Intepretacion radiologica por Sala")

Existe diferencia entre evaluadores por sala?

diferenciaporsala

    Welch Two Sample t-test

data:  df$Puntajes by df$Sala
t = 0.8, df = 40, p-value = 0.4
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -1.85  4.16
sample estimates:
mean in group A mean in group B 
           35.3            34.1 

No existe diferencia significativa entre evaluadores por sala.