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)
# assign the model summary to the variable `s`
# check names of entries in `s`
# save the R^2 of the regression to the variable `R2`
# assign the model summary to the variable `s`
s <- summary(mod)
# check names of entries in `s`
names(s)
# save the R^2 of the regression to the variable `R2`
R2 <- s$r.squared
test_predefined_objects("mod")
test_function("names", args = "x")
test_object("s")
test_object("R2")