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")