Presentación del Problema.

En un centro de investigación se realiza un estudio para comparar varios tratamientos que, al aplicarse previamente a los frijoles crudos, reducen su tiempo de cocción. Estos tratamientos son a base de bicarbonato de sodio (NaHCO3) y cloruro de sodio o sal común (NaCl). El primer tratamiento es el de control, que consiste en no aplicar ningún tratamiento. El tratamiento T2 es el remojo en agua con bicarbonato de sodio, el T3 es remojar en agua con sal común y el T4 es remojar en agua con una combinación de ambos ingredientes en proporciones iguales. La variable de respuesta es el tiempo de cocción en minutos. Los datos se muestran en la siguiente tabla:

``## Datos 'data.frame': 28 obs. of 2 variables: $ Tratamiento: chr "Control" "Control" "Control" "Control" ... $ Tiempo : int 213 214 204 208 212 200 207 76 85 74 ... Incluir una imagen desde el computador Experimento de Porotos Analisis de Anova

` summary(modelo) Df Sum Sq Mean Sq F value Pr(>F)
Tratamiento 3 95041 31680 1559 <2e-16 *** Residuals 24 488 20
— Signif. codes: 0 ‘’ 0.001 ‘’ 0.01 ‘’ 0.05 ‘.’ 0.1 ‘ ’ 1 > ``

Pruebas de Comparaciones Múltiples

diff lwr upr p adj T2-Control -129.428571 -136.07568671 -122.78146 0.0000000 T3-Control -146.857143 -153.50425813 -140.21003 0.0000000 T4-Control -122.714286 -129.36140099 -116.06717 0.0000000 T3-T2 -17.428571 -24.07568671 -10.78146 0.0000010 T4-T2 6.714286 0.06717044 13.36140 0.0471059 T4-T3 24.142857 17.49574187 30.78997 0.000000-.-

modelo=aov(Tiempo~Tratamiento,data=df) summary(modelo)

tk=TukeyHSD(modelo) tk plot(tk) ```{rmodelo=aov(Tiempo~Tratamiento,data=df) summary(modelo)

tk=TukeyHSD(modelo) tk plot(tk)}

knit en rmarkdown

`COCLUSIONES

Estime, con una confianza de 95%, que la resistencia promedio de los envases 26,863≤ ≤27.629 α=0,05 De igual manera se comporbo que la m= correcta es de 27,25 y la

desviación estándar poblacional es : 3.09≥S²≥1.45