Mostrar los resultados
El último paso, y probablemente el más importante al crear un modelo, es compartir los resultados.
En este ejercicio, extraerás las estimaciones a nivel de condado y las representarás con ggplot2. Para obtener las pendientes estimadas de cada condado, hay que sumar las pendientes de efectos aleatorios a las pendientes de efectos fijos.
Además de esta suma, el código ordena los condados por tasa de delitos (las estimaciones de la pendiente) para ayudarte a visualizar los datos con claridad.
El modelo que ajustaste anteriormente, glmer_out, ya está cargado.
Este ejercicio forma parte del curso
Modelos jerárquicos y de efectos mixtos en R
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Extract out the fixed-effect slope for Year2
Year2_slope <- fixef(___)['Year2']
# Extract out the random-effect slopes for county
county_slope <- ranef(___)$County
# Create a new column for the slope
county_slope$slope <- county_slope$Year2 + Year2_slope
# Use the row names to create a county name column
county_slope$county <- rownames(county_slope)
# Create an ordered county-level factor based upon slope values
county_slope$county_plot <- factor(county_slope$county,
levels = county_slope$county[order(county_slope$slope)])