Modelar una interacción
En este ejercicio, usarás interacciones para modelar el efecto del sexo y la actividad gástrica en el metabolismo del alcohol.
El data frame alcohol ya está cargado e incluye las columnas:
Metabol: la tasa de metabolismo del alcoholGastric: la tasa de actividad de la deshidrogenasa alcohólica gástricaSex: el sexo de la persona que bebe (MaleoFemale)
En el vídeo, ajustamos tres modelos a los datos de alcohol:
- uno con solo términos aditivos (efectos principales):
Metabol ~ Gastric + Sex - dos modelos, cada uno con interacciones entre la actividad gástrica y el sexo
Viste que uno de los modelos con términos de interacción tenía un R-cuadrado mejor que el modelo aditivo, lo que sugiere que usar términos de interacción da un mejor ajuste. En este ejercicio, compararás el R-cuadrado de uno de los modelos con interacción con el modelo solo con efectos principales.
Recuerda que el operador : indica la interacción entre dos variables. El operador * indica la interacción entre las dos variables, más los efectos principales.
x*y = x + y + x:y
Este ejercicio forma parte del curso
Aprendizaje supervisado en R: Regresión
Instrucciones del ejercicio
- Escribe una fórmula que exprese
Metabolcomo función deGastricySexsin interacciones.- Asigna la fórmula a la variable
fmla_adde imprímela.
- Asigna la fórmula a la variable
- Escribe una fórmula que exprese
Metabolcomo función de la interacción entreGastricySex.- Añade
Gastriccomo efecto principal, pero noSex. - Asigna la fórmula a la variable
fmla_interactione imprímela.
- Añade
- Ajusta un modelo lineal solo con efectos principales:
model_addcon los datos. - Ajusta un modelo lineal con la interacción:
model_interactioncon los datos. - Llama a
summary()en ambos modelos. ¿Cuál tiene mejor R-cuadrado?
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
# alcohol is available
summary(alcohol)
# Create the formula with main effects only
(fmla_add <- ___ )
# Create the formula with interactions
(fmla_interaction <- ___ )
# Fit the main effects only model
model_add <- ___
# Fit the interaction model
model_interaction <- ___
# Call summary on both models and compare
___
___