cs <- c(23, 19, 30, 22, 23, 29, 35, 36, 33, 25) ts <- c(430, 430, 333, 410, 390, 377, 325, 310, 328, 375) # adjuntar el paquete AER # estimar el modelo # obtener un resumen del modelo # adjuntar el paquete AER library(AER) # estimar el modelo lm(ts ~ cs) # obtener un resumen del modelo summary(lm(ts ~ cs)) test_predefined_objects(c("ts","cs")) test_student_typed("library(AER)") test_student_typed("lm(ts ~ cs)") test_function("summary")