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 - 1) coef <- summary(mod)$coef # imprimir el contenido de `coef` en la consola # calcular el estadístico t manualmente y asignarlo a `t_stat` # imprimir el contenido de `coef` en la consola print(coef) # calcular el estadístico t manualmente y asignarlo a `t_stat` t_stat <- coef[1,1]/coef[1,2] test_predefined_objects("coef") test_output_contains("coef") test_object("t_stat")