Tarea ANOVA AtencionArticulos
Tarea ANOVA AtencionArticulos
Tarea ANOVA AtencionArticulos
¿Qué tipo de comerciales de televisión captan mejor la atención de los niños? Para dar respuesta a la pregunta
anterior, se observo la actitud de 15 niños; 5 niños fueron observados mientras veían comerciales de juguetes y
juegos, 5 mientras veían comerciales sobre comida y goma de mascar y 5 mientras veían comerciales
relacionados con ropa para niños. Todos los comerciales tenían 60 segundos de duración. En la siguiente tabla
aparecen los tiempos de atención a los comerciales para los 15 niños:
TIEMPO DE ATENCION
JUGUETES 45 40 30 25 45
COMIDA 50 25 55 45 50
ROPA 25 15 22 27 35
Se desea probar si existe diferencia entre los tiempos medios de atención de los niños a las tres clases de
comerciales.
Punto crítico.
F(0.05,2,12)=3.88
Usando valor-p
3.88 F Como el p-valor de la prueba (0.0184) es menor que
el nivel de significancia (0.05), se rechaza la
hipótesis nula H 0
Conclusión.
Hay diferencias estadísticamente significativas entre
los tiempos medios de atención de los niños captadas
por los 3 tipos de comerciales.
D. Establezca las comparaciones múltiples con intervalos y valores-p mediante la prueba de TUKEY.
Resultados del software Tabla de Grupos Homogéneos.
Tratamiento Promedio Grupos
(Nivel) Homogéneos
Tukey multiple comparisons of means
JUGUETES 37 37
95% family-wise confidence level
COMIDA 45 45 45
Fit: aov(formula = TIEMPO_E ~ Tipo_E) ROPA 24.8 24.8
$Tipo_E
diff lwr upr p adj Análisis de las comparaciones
Comida-Juguetes -8.0 -24.10176 8.10176 0.4086297 Solo encuentran diferencias significativas entre los
Ropa-Juguetes -20.2 -36.30176 -4.09824 0.0148731 tiempos medios de atención de los niños captadas por
Ropa-Comida -12.2 -28.30176 3.90176 0.1493772 los comerciales de ROPA y de JUGUETES.
Código en R.
#Modelo asociado
Mod_Lin = aov(TIEMPO_E ~ Tipo_E)
Residuales = rstandard(Mod_Lin)
summary(Mod_Lin)
#Test de shapiro-wilk
shapiro.test(Mod_Lin$residuals)
#Prueba de homocedasticidad
bptest(Mod_Lin$residuals~Tipo_E, data=efecto)
bartlett.test(Mod_Lin$residuals~Tipo_E, data=efecto)
#Comparaciones multiples
library(agricolae)
#Método de Tukey
TukeyHSD(Mod_Lin)
#valor critico
qf(0.95,2,12)