Este documento analiza si la temperatura afecta significativamente el rendimiento medio en un proceso químico, mediante un análisis de varianza (ANOVA).
Los datos son los siguientes:
# Datos del ejercicio
temperatura <- factor(rep(c("50°C", "60°C", "70°C"), each = 5)) # Factores de las temperaturas
rendimiento <- c(34, 24, 36, 39, 32, 30, 31, 34, 23, 27, 23, 28, 28, 31, 30) # Rendimientos
# Crear un data frame
datos <- data.frame(Temperatura = temperatura, Rendimiento = rendimiento)
# Mostrar los datos
datos## Temperatura Rendimiento
## 1 50°C 34
## 2 50°C 24
## 3 50°C 36
## 4 50°C 39
## 5 50°C 32
## 6 60°C 30
## 7 60°C 31
## 8 60°C 34
## 9 60°C 23
## 10 60°C 27
## 11 70°C 23
## 12 70°C 28
## 13 70°C 28
## 14 70°C 31
## 15 70°C 30# Análisis de varianza
anova_resultado <- aov(Rendimiento ~ Temperatura, data = datos)
# Resultados del ANOVA
summary(anova_resultado)## Df Sum Sq Mean Sq F value Pr(>F)
## Temperatura 2 70 35.00 1.78 0.21
## Residuals 12 236 19.67