ODON210 2016

library("tidyverse")

Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages -----------------------------------------------------------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats

pairwise.t.test(video$Puntaje, video$Profesor, p.adj = "none")

    Pairwise comparisons using t tests with pooled SD 

data:  video$Puntaje and video$Profesor 

                 Aguilera..Felipe Araya..Guillermo Arias..Gerardo Donoso..Manuel Loyola..Gerald
Araya..Guillermo 0.86851          -                -              -              -             
Arias..Gerardo   3.5e-05          2.0e-05          -              -              -             
Donoso..Manuel   0.40812          0.32103          0.00043        -              -             
Loyola..Gerald   0.02024          0.02899          3.1e-08        0.00263        -             
Uribe..Sergio    0.86851          0.74058          5.9e-05        0.50801        0.01391       

P value adjustment method: none 

nombres.docentes = c("Araya..Guillermo", "Donoso..Manuel", "Aguilera..Felipe", "Uribe..Sergio")
docentes <- video %>% 
  filter((Profesor %in% nombres.docentes))
pairwise.t.test(docentes$Puntaje, docentes$Profesor, p.adj = "none")

    Pairwise comparisons using t tests with pooled SD 

data:  docentes$Puntaje and docentes$Profesor 

                 Aguilera..Felipe Araya..Guillermo Donoso..Manuel
Araya..Guillermo 0.87             -                -             
Donoso..Manuel   0.40             0.31             -             
Uribe..Sergio    0.87             0.74             0.50          

P value adjustment method: none