Práctica #2 (Promedios)

library(modeest)

## 
## This is package 'modeest' written by P. PONCET.
## For a complete list of functions, use 'library(help = "modeest")' or 'help.start()'.

Introduce los datos de los promedios de los alumnos

datosProm <- c(87.75, 74, 85, 86, 86, 74, 88, 74, 92.5, 91, 81, 93.33, 89, 88, 74, 79, 92.5, 94.8, 84, 81.5, 85, 84.5, 80, 82.5, 91.5, 82, 83.5, 79.9, 89, 92, 83, 80, 85, 86.33, 83, 82,85,80)
datosProm

##  [1] 87.75 74.00 85.00 86.00 86.00 74.00 88.00 74.00 92.50 91.00 81.00
## [12] 93.33 89.00 88.00 74.00 79.00 92.50 94.80 84.00 81.50 85.00 84.50
## [23] 80.00 82.50 91.50 82.00 83.50 79.90 89.00 92.00 83.00 80.00 85.00
## [34] 86.33 83.00 82.00 85.00 80.00

Graficar los promedios de los alumnos

plot(datosProm) 

##La mayor distribución de datos se encuentra en el rango entre 80 y 85, donde también se encuentra la media.

Calcular media

media<-mean(datosProm)
media

## [1] 84.46342

Calcular mediana

median(datosProm)

## [1] 84.75

Calcular moda

mfv(datosProm)

## [1] 74 85

Máximo

maximo<-max(datosProm)
maximo

## [1] 94.8

Mínimo

minimo<-min(datosProm)
minimo

## [1] 74

Ordenar Promedios

sort(datosProm)

##  [1] 74.00 74.00 74.00 74.00 79.00 79.90 80.00 80.00 80.00 81.00 81.50
## [12] 82.00 82.00 82.50 83.00 83.00 83.50 84.00 84.50 85.00 85.00 85.00
## [23] 85.00 86.00 86.00 86.33 87.75 88.00 88.00 89.00 89.00 91.00 91.50
## [34] 92.00 92.50 92.50 93.33 94.80

Rango

rango= maximo - minimo
rango

## [1] 20.8

Gráfica de Frecuencia

frecuencia<-table(datosProm)
frecuencia

## datosProm
##    74    79  79.9    80    81  81.5    82  82.5    83  83.5    84  84.5 
##     4     1     1     3     1     1     2     1     2     1     1     1 
##    85    86 86.33 87.75    88    89    91  91.5    92  92.5 93.33  94.8 
##     4     2     1     1     2     2     1     1     1     2     1     1

barplot(frecuencia, col = "blue", main = "Frecuencia de promedios")

Frecuencia relativa

frecRelativa<-(frecuencia)/margin.table(frecuencia)
frecRelativa

## datosProm
##         74         79       79.9         80         81       81.5 
## 0.10526316 0.02631579 0.02631579 0.07894737 0.02631579 0.02631579 
##         82       82.5         83       83.5         84       84.5 
## 0.05263158 0.02631579 0.05263158 0.02631579 0.02631579 0.02631579 
##         85         86      86.33      87.75         88         89 
## 0.10526316 0.05263158 0.02631579 0.02631579 0.05263158 0.05263158 
##         91       91.5         92       92.5      93.33       94.8 
## 0.02631579 0.02631579 0.02631579 0.05263158 0.02631579 0.02631579

Frecuencia porcentual

frecuenciaporcentual=frecRelativa*100 
frecuenciaporcentual

## datosProm
##        74        79      79.9        80        81      81.5        82 
## 10.526316  2.631579  2.631579  7.894737  2.631579  2.631579  5.263158 
##      82.5        83      83.5        84      84.5        85        86 
##  2.631579  5.263158  2.631579  2.631579  2.631579 10.526316  5.263158 
##     86.33     87.75        88        89        91      91.5        92 
##  2.631579  2.631579  5.263158  5.263158  2.631579  2.631579  2.631579 
##      92.5     93.33      94.8 
##  5.263158  2.631579  2.631579

Cantidad de datos

n<-length(datosProm)
n

## [1] 38

Cuartil y percentil

quantile(datosProm, c(.25, .50, .75))

##    25%    50%    75% 
## 81.125 84.750 88.000

quantile(datosProm, 0.80)

## 80% 
##  89