Tarea Cristian Suarez

Subir Fuente de Datos y Colocar la semilla para que no cambie la muestra

Fuente = "https://raw.githubusercontent.com/Andres-Cruz-Perez/datos/master/Encuesta.txt"
library(readr)
Datos=read.table(Fuente)
set.seed(1)

Escoger el Tamaño de la Muestra y la variable

MuestraM = sample(1:nrow(Datos), 450 , FALSE)
Data_MuestraM = Datos[MuestraM, ]
Tabla_Estrato = table(Data_MuestraM$V5)
Tabla_Estrato

## 
##             2             3             4 Estrato_Socio 
##           149           155           145             1

La Muestra es de 450 y nos basaremos en los de estrato 3, los que corresponden a 155 personas

Est_3= 155/nrow(Data_MuestraM)
Est_3

## [1] 0.3444444

Los de estrato 3 en esta muestra, son el 34,4…%. Peeeeeeero, anhelamos un 5%, por lo que usamos el 1,96 en el margen de error

Error_P = (1.96)*sqrt(Est_3*(1-Est_3)/450)
Error_P

## [1] 0.04390502

Y listo, con el porcentaje que nos dio como resultado “0.04390502” podemos confirmar que es menor al 5%, que en su defecto, es lo que buscabamos obtener.