Describir los datos
Hacer predicciones
Establecer relaciones causales
Comparar distribuciones de datos
Respuesta correcta:
Principio de replicación
Principio de aleatorización
Principio de control
Principio de bloqueo
Respuesta correcta:
Diseño factorial
Diseño completamente aleatorizado
Diseño en bloques completos
Diseño en parcelas subdivididas
Respuesta correcta:
Es un conjunto de métodos para recopilar datos
Es el proceso de llegar a conclusiones sobre una población basadas en una muestra de datos
Es una técnica para analizar datos cualitativos
Es el cálculo de estadísticas descriptivas
Respuesta correcta:
Se utiliza un bloqueo para controlar factores externos
Los tratamientos se asignan a los sujetos de manera no aleatoria
Los sujetos se seleccionan mediante muestreo estratificado
Los tratamientos se asignan aleatoriamente a los sujetos
Respuesta correcta:
El p-valor
La desviación estándar
El coeficiente de correlación
El coeficiente de regresión
Respuesta correcta:
La varianza de la población
El tamaño de la población
El nivel de significancia
Todas las anteriores
Respuesta correcta:
# Crear un dataframe con datos simulados
set.seed(789) # Para reproducibilidad
experimento_1v <- data.frame(
Parcela = 1:27,
Fertilizante = rep(c("A", "B", "C"), each = 9),
Altura_de_Planta = round(rnorm(27, mean = 30, sd = 5), 1)
)
# Realizar un análisis de varianza (ANOVA) de una vía
modelo_anova_1v <- aov(Altura_de_Planta ~ Fertilizante, data = experimento_1v)
resumen_anova_1v <- summary(modelo_anova_1v)
# Obtener la respuesta
# ¿Cuál es el valor del estadístico F en el ANOVA de una vía?
resumen_anova_1v$`F value`[1]
## NULL
Respuesta: El valor del estadístico F en el ANOVA de una vía es:
# Crear un dataframe con datos simulados
set.seed(101) # Para reproducibilidad
experimento_2v <- data.frame(
Planta = 1:36,
Agua = factor(rep(c("Baja", "Media", "Alta"), each = 12)),
Luz = factor(rep(c("Baja", "Alta"), each = 18)),
Rendimiento = round(rnorm(36, mean = 50, sd = 10), 2)
)
# Realizar un análisis de varianza (ANOVA) de dos vías
modelo_anova_2v <- aov(Rendimiento ~ Agua * Luz, data = experimento_2v)
resumen_anova_2v <- summary(modelo_anova_2v)
# Obtener la respuesta
# ¿Cuál es el valor del estadístico F en el ANOVA de dos vías?
resumen_anova_2v$`F value`[1]
## NULL
Respuesta: El valor del estadístico F en el ANOVA de dos vías es:
# Crear un cuadrado latino
cuadrado_latino <- expand.grid(
Bloque = 1:4,
Tratamiento = c("A", "B", "C", "D")
)
# Revolver aleatoriamente las filas del cuadrado latino
set.seed(987) # Para reproducibilidad
cuadrado_latino <- cuadrado_latino[sample(nrow(cuadrado_latino)), ]
# Obtener la respuesta
# ¿Qué tratamiento debe asignarse al bloque 1?
cuadrado_latino$Tratamiento[cuadrado_latino$Bloque == 1]
## [1] C D A B
## Levels: A B C D
Respuesta: El tratamiento que debe asignarse al bloque 1 es:
# Crear un cuadrado grecolatino
cuadrado_grecolatino <- data.frame(
Bloque = rep(1:3, each = 3),
Tratamiento = c("A", "B", "C", "B", "C", "A", "C", "A", "B")
)
# Revolver aleatoriamente las filas del cuadrado grecolatino
set.seed(654) # Para reproducibilidad
cuadrado_grecolatino <- cuadrado_grecolatino[sample(nrow(cuadrado_grecolatino)), ]
# Obtener la respuesta
# ¿Qué tratamiento debe asignarse al bloque 1, 2 y 3, respectivamente?
cuadrado_grecolatino$Tratamiento[cuadrado_grecolatino$Bloque == 1]
## [1] "A" "B" "C"
cuadrado_grecolatino$Tratamiento[cuadrado_grecolatino$Bloque == 2]
## [1] "C" "B" "A"
cuadrado_grecolatino$Tratamiento[cuadrado_grecolatino$Bloque == 3]
## [1] "C" "A" "B"
Respuesta: Los tratamientos que deben asignarse a los bloques 1, 2 y 3, respectivamente, son:
# Crear una matriz de diseño para un experimento 2^3
factores <- expand.grid(
A = c("Alto", "Bajo"),
B = c("Alto", "Bajo"),
C = c("Alto", "Bajo")
)
# Obtener la respuesta
# ¿Cuántas combinaciones de tratamientos diferentes existen?
nrow(factores)
## [1] 8
Respuesta: Las combinaciones de tratamientos diferentes son:
Chicos, espero que estos ejercicios sean útiles y les ayuden a comprender mejor los conceptos relacionados con los diseños experimentales.