Deber 10

Curso: “CA3-001”

Tema: “Ejercicio del Teorema central del límite”

Autoevaluación 8.4 Página 285 [@lind_marchall]

Repase los datos de Spence Sprockets, Inc., de la página 281. Seleccione al azar 10 muestras de 5 empleados cada una. Utilice los métodos descritos en el capítulo y la tabla de números aleatorios (apéndice B.6) para determinar los empleados que se incluirán en la muestra. Calcule la media de cada muestra y trace una gráfica de las medias muestrales en una gráfica similar a la 8-3. ¿Cuál es la media de las 10 medias muestrales?

set.seed(123)
poblacion <- c(11, 4, 18, 2, 1, 2, 0, 2, 2, 4,
           3, 4, 1, 2, 2, 3, 3, 19, 8, 3,
           7, 1, 0, 2, 7, 0, 4, 5, 1, 14,
           16, 8, 9, 1, 1, 2, 5, 10, 2, 3)


muestras10 <- replicate(10, sample(poblacion,size = 5),simplify = TRUE)
muestras10

     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]   16    7    5    0    2    0    0    1   19     2
[2,]    2    0    2    0    3    2    4    1    9     0
[3,]    2    4    1    2    4    4    8    2    4    16
[4,]   18    1    1    8    2    0    7    4    7     3
[5,]   10   10    2    2    8    4    1    1    7    14

media_muestras <- apply(muestras10, MARGIN=2,mean)
media_muestras

 [1] 9.6 4.4 2.2 2.4 3.8 2.0 4.0 1.8 9.2 7.0

media_media_muestras <- mean(media_muestras)
media_media_muestras

[1] 4.64

media_poblacion <- mean(poblacion)
media_poblacion

[1] 4.8

x <- c(1.8,2,2.2,2.4,3.8,4,4.4,7,9.2,9.6)
y <- c(1,1,1,1,1,1,1,1,1,1)
plot(x,y,type="h", col= "red")