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,94,88,86,84)
promedios

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

Ordenar datos

ordenar <- sort(promedios)
ordenar

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

Mediana

mediana <- median(promedios)
mediana

## [1] 88

Moda

sort(table (promedios), decreasing = TRUE)

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

#Otra manera de sacar Moda

mfv(promedios)

## [1] 86

Media Aritmetica

n <- length(promedios)
n

## [1] 17

sum(promedios)/n

## [1] 88.35294