library(AER) library(MASS) mod <- lm(medv ~ lstat + crim + age, data = Boston) # construir un intervalo de confianza del 99% para todos los coeficientes # construir un intervalo de confianza del 99% para todos los coeficientes confint(mod, level = 0.99) test_function("confint", args = c("object", "level")) success_msg("¡Bien hecho! De manera análoga al ejercicio anterior, se puede ver que 0 no es un elemento en ninguno de los intervalos de confianza, sino para el coeficiente de la tasa de criminalidad. Por lo tanto, como se esperaba, la decisión de la prueba sigue siendo la misma.")