
  # set seed for reproducibility
  set.seed(1)
  
  
  # sample the observations
  
  
  # estimate the mean and assign the estimate to `mu_hat`
  
  
  # compute the 95% confidence interval using the formula above
  CI <- c(
    "lower" = NA,
    "upper" = NA
  )


  set.seed(1)
  mu_hat <- mean(rnorm(100, mean = 10, sd = 10))
  CI <- c(
   "lower" = mu_hat - 1.96,
   "upper" = mu_hat + 1.96
  )

test_object("CI")


  test_object("mu_hat")
  test_object("CI")