Caso_integral

Objetivo

Métodos 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)
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 = TRUE)

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

Media aritmética

media <- mean(promedios)
media

## [1] 87.84211