#Codigo para 26-6-18

#0  Preliminares
setwd("/Linguistics/Talks/UNAM/Dia5/")
FL <- read.delim("Triqui_stops.csv")
FLdatos <- subset(FL, Size=="mono")

#1  Oclusivas de triqui
  #1a. Examine la duración del cierre usando ANOVA con
  dos factores: tipo (Type) y consonante (Onset).
  
  anova(lm(....))
  
  #1b. Dibuje los datos de la duración del cierre.
  
#2  Cuál es el efecto de Tipo/Consonante ahora?
anova(lm(Clos.dur~Type*Onset*Speaker, data=FLdatos))

#3  Otra manera de hacerlo

aov.modelo <- aov(Clos.dur~Type*Onset+Error(Speaker/(Type*Onset)), data=FLdatos)
