Caso_Integrado

objetivo

Medidas de Tendencia central

Desarrollo

Cargar Librerias

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 Aritmetica

n<-length(Promedios)
n

## [1] 19

sum(Promedios)/n

## [1] 87.84211