set.seed(1); s <- rnorm(100, mean = 10, sd = 10) # utiizar una regresión para obtener una estimación de la media # calcular el IC del 95% para la media set.seed(1) # utilizar una regresión para obtener una estimación de la media y # calcular el IC del 95% confint(lm(s ~ 1)) test_predefined_objects("s") test_output_contains("confint(lm(s ~ 1))")