set.seed(1); s <- rnorm(100, mean = 10, sd = 10)
# use a regression to obtain an estimate of the mean
# compute the 95% CI for the mean
set.seed(1)
# use a regression to obtain an estimate of the mean and
# compute the 95% CI
confint(lm(s ~ 1))
test_predefined_objects("s")
test_output_contains("confint(lm(s ~ 1))")