
      # sembrar la semilla para la reproducibilidad
      set.seed(1)
      
      # muestrear las observaciones
      
      # estimar la media y asignar el resultado a `mu_hat`
      
      # calcular el intervalo de confianza del 95% usando la fórmula anterior
      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("mu_hat")
      test_object("CI")