
      Y_tilde <- function(x){sum(x)/(length(x)-1)}


      # Calcular estimaciones repetidas y almacenar los resultados en est_consistent
      set.seed(123)

      # Graficar un histograma de est_consistent
           
      # Agregue una línea vertical roja en mu = 10


      # Calcular estimaciones repetidas y almacenar los resultados en est_consistent
      set.seed(123)
      est_consistent <- replicate(n = 10000, expr = Y_tilde(rnorm(1000, 10, 5)))     
      
      # Graficar un histograma de est_consistent
      hist(est_consistent)
           
      # Agregue una línea vertical roja en mu = 10
      abline(v = 10, col = "red")


      test_object("est_consistent")
      test_function("hist", args = "x")
      test_function("abline", args = c("v", "col"))