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 # print the contents of `coef` to the console # compute the t-statistic manually and assign it to `t_stat` # print the contents of `coef` to the console print(coef) # compute the t-statistic manually and assign it to `t_stat` t_stat <- coef[1,1]/coef[1,2] test_predefined_objects("coef") test_output_contains("coef") test_object("t_stat")