Promedios Alumnos Carreras

Objetivo

Determinar la media poblacional y media muestral de un conjunto de registros de alumnos con datos generados aleatoriamente.

Descripción

Se establece una semilla de inicio
Se crean tres variables
Se generan tres variables que contienen, numeros consecutivos desde 1 a 7200, los promedios de 7200 alumnos entre 70 y 100 además de las carreras de una Institución de Educación Superior.

Se establece la semilla

set.seed(1234)

Generar las tres variables

no <- 1:7200
promedios <- sample(70:100, 7200, replace = TRUE)
carreras <- c('ELECTRICA', 'ELECTRONICA', 'SISTEMAS', 'INFORMATICA', 'INDUSTRIAL', 'QUIMICA', 'ADMINISTRACION', 'CIVIL', 'ARQUITECTURA', 'BIOQUIMICA', 'MECANICA', 'MECATRONICA', 'TIC', 'GESTION')

Crear el conjunto de datos

Generar un conjunto de datos data.frame con las tres variables

carralumno <- sample(carreras, 7200, replace = TRUE)
alumnos <- data.frame(no, promedios, carralumno)

# alumnos
head(alumnos)  # Los primeros seis registros

##   no promedios   carralumno
## 1  1        97   INDUSTRIAL
## 2  2        85   INDUSTRIAL
## 3  3        95 ARQUITECTURA
## 4  4        91 ARQUITECTURA
## 5  5        74     SISTEMAS
## 6  6        81        CIVIL

tail(alumnos)  # Lo últimos seis registros

##        no promedios   carralumno
## 7195 7195        81     SISTEMAS
## 7196 7196        89     SISTEMAS
## 7197 7197        70      GESTION
## 7198 7198        87 ARQUITECTURA
## 7199 7199        87  INFORMATICA
## 7200 7200        96      QUIMICA

N <- nrow(alumnos) # Tamaño de población

Determinar el promedio general de todos los estudiantes o de toda la población

promedioPoblacion <- mean(alumnos$promedios)
promedioPoblacion # Promedio de todos los estudiantes

## [1] 85.06528

Generar una muestra del 10%

Generar muestra del 10%
Determinar la media de la muestra

muestraRegs <- sample(1:N, N * 0.10, replace = FALSE) # Son 720
muestraAlumnos <- alumnos[muestraRegs,] # La muestra de alumnos

promedioMuestra <- mean(muestraAlumnos$promedios)

promedioMuestra

## [1] 85.69583

print("¿Los promedios de población y de muestra salen iguales o parecidos?")

## [1] "¿Los promedios de población y de muestra salen iguales o parecidos?"

Determinar muestra conforme a fórmula del enlace:

http://www.corporacionaem.com/tools/calc_muestras.php * Generar una muestra conforme a la fórmula * Utilizando calculadora para determinar la muestra * Son 365 casos es la muestra al 95% de confianza y 5% margen de error

n <- 365 # Tamaño de la muestra
muestraRegs <- sample(1:N, n, replace = FALSE)

muestraAlumnos <- alumnos[muestraRegs,] # La muestra de alumnos
#muestraAlumnos

promedioMuestra <- mean(muestraAlumnos$promedios)
print("¿Los promedios de población y de muestra salen iguales o parecidos?, ¿cambia conforme a los valores anteriores de la muesra al 10%?")

## [1] "¿Los promedios de población y de muestra salen iguales o parecidos?, ¿cambia conforme a los valores anteriores de la muesra al 10%?"

print(promedioPoblacion)

## [1] 85.06528

print(promedioMuestra)

## [1] 85.82466

Resultados

Se generaron 7200 registros
Se obtuvo la media poblacional de 7200
Se generó una muestra al 10% y se obtuvo la media muestral
Se generó muestra conforme a fórmula utilizando calculadora para muestra y se obtuvieron 365 observaciones
Se generó nuevamente la media de la muestra

Interpretación

Hubo una variación en la media de la muestra al 10% de 7200 observaciones con respecto a la media generada por calculadora y de acuerdo a la fórmula de 365 observaciones.