Tema 2

Generar una población de canicas de forma aleatoria, que contengan canicas rojas y blancas, de n=2600.

set.seed(123) #fijamos la semilla para trabajar con la misma poblacion generada
canicas<-rbinom(2600,1,0.2) #se creo aleatoriamente valores de 0(canicas blancas) y 1(canicas rojas), usando una generacion aleatorio binomial, donde se fijo arbitrariamente los parámetros, con un p=0.2.

Simular la situación que se extraen 10 canicas con reemplazo de una urna que contienen las 2600, de forma repetida.

Podemos establecer una hipótesis que la urna contiene un 20% de canicas rojas, p=0.2.

rep=1000 #cantidad de repeticiones
matrix<-replicate(rep,sample(canicas,10,replace = TRUE))#crea una matriz donde cada columna es una muestras
rojo<-colSums(matrix) #crea un vector con todas las sumas de las columnas de la matrix
mean(rojo) # esta cantidad es el promedio de canicas rojas extraidas por muestra

[1] 1.971

Conclusión: al simular un muestreo de n=10 y lo repetimos varias veces obtenemos un valor alrededor de 2 que tomado como una proporción de la muestra x/n, 2/10, nos dá un valor p=0.2. Este es un ejercicio que intuye como un muestreo aleatorio de variables independientes(muestreo con reemplazo), se aproxima a la cantidad de canicas de color rojo que hay en la urna supuesta, donde en principio.