PROBLEMA 3: 12

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:

Lectura de datos

df=read.csv("https://raw.githubusercontent.com/Lisseth1889/Diseno-experimental/main/Cap3-12.csv",sep=";")
df
##    Tratamiento Tiempo
## 1      control    213
## 2      control    214
## 3      control    204
## 4      control    208
## 5      control    212
## 6      control    200
## 7      control    207
## 8           T2     76
## 9           T2     85
## 10          T2     74
## 11          T2     78
## 12          T2     82
## 13          T2     75
## 14          T2     82
## 15          T3     57
## 16          T3     67
## 17          T3     55
## 18          T3     64
## 19          T3     61
## 20          T3     63
## 21          T3     63
## 22          T4     84
## 23          T4     82
## 24          T4     85
## 25          T4     92
## 26          T4     87
## 27          T4     79
## 28          T4     90
str(df)
## '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 ...
df$Tratamiento=factor(df$Tratamiento)

##Boxplot

boxplot(Tiempo~Tratamiento,data=df,main="comparacion de tiempo de coccion")

Analisis de Varianza

modelo=aov(Tiempo~Tratamiento,data=df)
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