curve(dt(x, df = 1), xlim = c(-4, 4)) set.seed(123) # Generar 1000 números aleatorios a partir de la distribución dada. Asígnelos a la variable x. # Calcule la media muestral de x. set.seed(123) # Generar 1000 números aleatorios a partir de la distribución dada. Asígnelos a la variable x. x <- rt(1000, df = 1) # Calcule la media muestral de x. mean(x) # Aunque una distribución t con M = 1 es, como cualquier otra distribución t, simétrica alrededor de cero, en realidad no tiene ninguna expectativa. Esto explica el valor muy distinto de cero de la media muestral. test_object("x") test_function_result("mean") success_msg("¡Bien hecho! La expectativa no está definida para un RV distribuido con un grado de libertad: aunque una distribución con M = 1 es, como cualquier otra distribución t, simétrica alrededor de cero, en realidad no tiene ninguna expectativa. Esto explica el valor distinto de cero de la media muestral".)