cs <- c(23, 19, 30, 22, 23, 29, 35, 36, 33, 25)
ts <- c(430, 430, 333, 410, 390, 377, 325, 310, 328, 375)
# attach the package AER
# estimate the model
# obtain a model summary
# attach the package AER
library(AER)
# estimate the model
lm(ts ~ cs)
# obtain a model summary
summary(lm(ts ~ cs))
test_predefined_objects(c("ts","cs"))
test_student_typed("library(AER)")
test_student_typed("lm(ts ~ cs)")
test_function("summary")