cs <- c(23, 19, 30, 22, 23, 29, 35, 36, 33, 25) ts <- c(430, 430, 333, 410, 390, 377, 325, 310, 328, 375) mod <- lm(ts ~ cs) mod_ni <- lm(ts ~ cs - 1) # extraer la matriz de coeficientes del resumen del modelo y guardarlo en `coef` # extraer la matriz de coeficientes del resumen del modelo y guardarlo en `coef` coef <- summary(mod_ni)$coefficients test_predefined_objects("mod") test_predefined_objects("mod_ni") test_object("coef") success_msg("Right! Note that there is only one coefficient estimate (the coefficient on cs) reported by summary(mod_ni)")