Promedio de Calificaciones de Alumnos Aleatorio con sample()

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

set.seed(1234)

Generar variables

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

Crearemos el conjunto de datos

carralumno <- sample(carreras, 7200000, 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

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
## 7199995 7199995        81    ELECTRONICA
## 7199996 7199996        89        QUIMICA
## 7199997 7199997        70     BIOQUIMICA
## 7199998 7199998        87     INDUSTRIAL
## 7199999 7199999        87       SISTEMAS
## 7200000 7200000        96 ADMINISTRACION