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))")