
I need to build :
a function that takes a vector of continuous data and computes
• the sample mean of the data
• a 95% confidence interval (CI) for the population mean using the Normal approximation
The function should use the following shell
￼
mean_ci < function(x, na.rm = TRUE)
{
## Your code goes here
## Return a numeric vector with three elements
## 1. The sample mean
## 2. The lower CI bound
## 3. The upper CI bound
}
