Caso Integral

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)
promedios

##  [1]  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 = FALSE)

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

#Otra manera de sacar la Moda
mfv(promedios)

## [1] 84 86

Media Aritmetica

n <- length(promedios)