Prob#5

Problema 5

A=c(2.3,4.1,4.9,2.3)
B=c(5.3,3.9,4.5,5.3)
C=c(2.3,2.8,3.8,1.8)
df=data.frame(A=A,B=B,C=C)
df=stack(df)
names(df)=c("Y","Lab")
df

##      Y Lab
## 1  2.3   A
## 2  4.1   A
## 3  4.9   A
## 4  2.3   A
## 5  5.3   B
## 6  3.9   B
## 7  4.5   B
## 8  5.3   B
## 9  2.3   C
## 10 2.8   C
## 11 3.8   C
## 12 1.8   C

Análisis de varianza

modelo=aov(Y~Lab,data=df)
summary(modelo)

##             Df Sum Sq Mean Sq F value Pr(>F)  
## Lab          2  8.872   4.436   4.569 0.0427 *
## Residuals    9  8.737   0.971                 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Conclusión

El valor de p=0.0427 nos indica que hay diferencias significativas entre los diferentes laboratorios