caso_integral

Objetivo

Medidas de tendencia central.

Desarrollo

Cargar librerias

library(modeest)

Crear Datos

promedios <- c(90, 86, 99, 88, 94, 100, 72, 84, 84, 96, 92, 86, 84, 83, 84, 94, 88, 86, 84)
promedios 

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

Ordenar Datos

ordenados = sort(promedios)
ordenados 

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

Mediana

mediana = median(promedios)
mediana

## [1] 86

Moda

sort(table(promedios),decreasing = TRUE)

## promedios
##  84  86  88  94  72  83  90  92  96  99 100 
##   5   3   2   2   1   1   1   1   1   1   1

#Otra manera de sacar moda
mfv(promedios)

## [1] 84

Media Aritmetica

n = length(promedios)
n

## [1] 19

sum(promedios)/n 

## [1] 88.10526