Untitled

# 1. Ingreso de datos
A <- c(81, 84, 83, 82)
B <- c(86, 88, 87, 89)
C <- c(79, 80, 78, 81)
D <- c(91, 90, 92, 89)

eficiencia <- c(A, B, C, D)

tratamiento <- factor(c(
  rep("A", length(A)),
  rep("B", length(B)),
  rep("C", length(C)),
  rep("D", length(D))
))

datos <- data.frame(tratamiento, eficiencia)

# 2. Visualizar datos
print(datos)

# 3. Medias por tratamiento
medias <- tapply(datos$eficiencia, datos$tratamiento, mean)
print(medias)

# 4. Media general
media_general <- mean(datos$eficiencia)
print(media_general)