CLASE DE SONDEO 4

#CLASE 3 DE SONDEO
#MUESTREO ALEATORIO SIMPLE (MAS)
datos
<- barrios="" con="" esktop="" multivariante="" p="" r="" read.csv="" sarnal.csv="" sep=";" sers="">
<- barrios="" con="" esktop="" multivariante="" p="" r="" read.csv="" sarnal.csv="" sep=";" sers="">#ESTIMACIÓN DEL PROMEDIO DE LOS INGRESOS QUE RECIBEN LOS MUNICIPIOS
N=281 #tamaño de la población
n=50 #tamaño de la muestra
#MUNICIPIOS SELECCIONADOS CON EL COMANDO SAMPLE()
#s=sample(N,n,FALSE)
#ORDENADO LOS ELEMENTOS SELECCIONADOS DE MENOR A MAYOR
#s=sort(s);s
#edit(s)
s=c(5L, 27L, 28L, 38L, 40L, 48L, 51L, 52L, 55L, 68L, 96L, 103L, 106L, 115L, 116L, 120L, 124L, 128L, 131L, 145L, 146L, 158L, 160L,
    161L, 163L, 164L, 167L, 179L, 180L, 183L, 184L, 195L, 196L, 200L,
    201L, 203L, 208L, 216L, 217L, 225L, 231L, 234L, 252L, 253L, 254L,
    257L, 263L, 265L, 272L, 281L)
#datos[1:5,]
x=datos$RMT85;x #INGRESOS QUE RECIBIERON CADA MUNICIPIO EN EL AÑO 1985
X=x[s];X #INGRESOS DE LOS MUNICIPIOS SELECCIONADOS
#RESUMEN DE LOS INGRESOS DE LOS MUNICIPIOS
summary(X)
#PROMEDIO PUNTUAL 0 ESTIMACIÓN DE PROMEDIO
PRO=mean(X);PRO
#CONCLUSIÓN:Estimamos que el ingreso promedio por municipio es de 224.92
#ERROR DE ESTIMACIÓN
E=sd(X)/sqrt(n);E
#CONCLUSIÓN:Estimamos que el ingreso promedio por municipio es de 225 en
#millones de coronas con un error de 6 millones de corona
#ESTIMACIÓN DEL PROMEDIO DE LOS INGRESOS CON UNA CONFIANZA DEL 95%
Z=1.96 #cuantil correspondiente al nivel de confianza de 95%
#INTERVALO DE CONFIANZA AL 95% PARA ESTIMAR UN PROMEDIO POBLACIONAL
c(PRO-1.96*E,PRO+1.96*E)
#CONCLUSIÓN: ESTIMAMOS CON UNA CONFIANZA DEL 95% QUE EL PROMEDIO DE LOS INGRESOS POR MUNICIPIO
#ESTA ENTRE 142 MILLONES Y  308 MILLONES DE CORONAS.