x <- rnorm(1000)
ci_1pop_norm(x) # confidence interval for the mean, unknown variance
x <- rnorm(1000, sd = 2)
ci_1pop_norm(x, sd_pop = 2) # confidence interval for mean, known variance
x <- rnorm(1000, sd = 5)
ci_1pop_norm(x, parameter = "variance") # confidence interval for the variance
Run the code above in your browser using DataLab