Caso Integral

Objetivo

Medidas de tendencia central

Desarrollo

Cargar Librerías

library(modeest) 

Crear Datos

promedios = c(90, 86, 88, 92, 94, 100, 72, 84, 86, 96, 92, 86, 84, 83, 84, 94, 88, 86, 84)

Ordenar Datos

ordenados = sort(promedios)
ordenados

##  [1]  72  83  84  84  84  84  86  86  86  86  88  88  90  92  92  94  94  96 100

Mediana

mediana = median(promedios)
mediana

## [1] 86

Moda

sort(table(promedios), decreasing = TRUE)

## promedios
##  84  86  88  92  94  72  83  90  96 100 
##   4   4   2   2   2   1   1   1   1   1

# Otra manera de sacar moda
mfv(promedios)

## [1] 84 86

Media Aritmética

n = length(promedios)
sum(promedios) / n

## [1] 87.84211

media = mean(promedios)

Cuartiles

quantile(promedios, c(0.25, 0.50, 0.75))

## 25% 50% 75% 
##  84  86  92

summary(promedios)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   72.00   84.00   86.00   87.84   92.00  100.00

Diagrama de caja de promedios

boxplot(promedios, horizontal = TRUE)

var(promedios)

## [1] 37.5848

sd(promedios)

## [1] 6.130644

Dispesión de los datos

plot(promedios)