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) # asignar el resumen del modelo en la variable `s` # comprobar los nombres de las entradas en `s` # guarda el R^2 de la regresión en la variable `R2` # asignar el resumen del modelo a la variable `s` s <- summary(mod) # comprobar los nombres de las entradas en `s` names(s) # guarda el R^2 de la regresión en la variable `R2` R2 <- s$r.squared test_predefined_objects("mod") test_function("names", args = "x") test_object("s") test_object("R2")