Lectura de datos:

Cemento <- read.csv("/Carlos Tellez Martinez/Cemento.csv")
View(Cemento)
attach(Cemento)

Se Crea Modelo

Tecnica <- factor(Tecnica)
Modelo <- lm(Resistencia~Tecnica)
ANOVA <- aov(Modelo)
summary(ANOVA)
##             Df Sum Sq Mean Sq F value  Pr(>F)    
## Tecnica      3 489740  163247    12.7 0.00049 ***
## Residuals   12 153908   12826                    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Conclusión: Que hay diferencia entre las técnicas de mezclado.

Verificación de las diferencias entre las técnicas de mezclado.

library(agricolae)
Tecnicas <- LSD.test(y = ANOVA, trt = "Tecnica", group = T, console = T)
## 
## Study: ANOVA ~ "Tecnica"
## 
## LSD t Test for Resistencia 
## 
## Mean Square Error:  12826 
## 
## Tecnica,  means and individual ( 95 %) CI
## 
##           Resistencia    std r  LCL  UCL  Min  Max
## Tecnica_1        2971 120.56 4 2848 3094 2865 3129
## Tecnica_2        3156 135.98 4 3033 3280 2975 3300
## Tecnica_3        2934 108.27 4 2810 3057 2800 3050
## Tecnica_4        2666  80.97 4 2543 2790 2600 2765
## 
## alpha: 0.05 ; Df Error: 12
## Critical Value of t: 2.179 
## 
## Least Significant Difference 174.5
## Means with the same letter are not significantly different.
## 
## Groups, Treatments and means
## a     Tecnica_2   3156 
## b     Tecnica_1   2971 
## b     Tecnica_3   2934 
## c     Tecnica_4   2666

Se crea la gráfica de grupos.

bar.group(x = Tecnicas$groups, ylim=c(0,3900), xlab="Técnicas de mezclado", ylab="Valor", main="Prueba LSD para las técnicas de mezclado", col=c(1, 2, 4, 6))

plot of chunk unnamed-chunk-4