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