# sembrar la semilla para la reproducibilidad set.seed(3) # establecer el número de iteraciones de muestreo N <- # inicializar vector `beta_hats` beta_hats <- # realizar la simulación usando 'for()' for(i in 1:N) { } # comparar la media de las estimaciones con el parámetro verdadero # sembrar la semilla para la reproducibilidad set.seed(3) # establecer el número de iteraciones de muestreo N <- 1000 # inicializar vector `beta_hats` beta_hats <- c() # estimación de bucle for (i in 1:N) { # simular el conjunto de datos X <- runif(100, -5, 5) Y <- X^2 + rnorm(100) # estimar la función de regresión lineal ms_mod <- lm(Y ~ X) # guardar el presupuesto beta_hats[i] <- ms_mod$coefficients[1] } # comparar la media de las estimaciones y el parámetro verdadero mean(beta_hats) == 0 test_object("beta_hats") test_student_typed("==")