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) # comprobar la clase de `mod` # usar `is.list ()` en `mod` # comprobar las entradas de `mod` usando` names () ` # usar el operador `$` en `mod` # comprobar la clase de `mod` class(mod) # usar `is.list ()` en `mod` is.list(mod) # comprobar las entradas de `mod` usando` names () ` names(mod) # usar el operador `$` en `mod` # ejemplo: mod$fitted.values test_predefined_objects("mod") test_function("class", args="x") test_function("is.list", args="x") test_function("names", args="x") test_student_typed("mod$")