caso integral

objetivo

Medidas de tendencia central #Desarrollo ##Librerias

library (modeest)

Crear datos

promedios = c(90,89,88,87,86,85,84,83,82,81,90,88,91,91,92,93,94,95,96,97,98,99,100)
promedios

##  [1]  90  89  88  87  86  85  84  83  82  81  90  88  91  91  92  93  94  95  96
## [20]  97  98  99 100

Ordenar datos

ordenados = sort(promedios)
ordenados

##  [1]  81  82  83  84  85  86  87  88  88  89  90  90  91  91  92  93  94  95  96
## [20]  97  98  99 100

Mediana

mediana= median(promedios)
mediana

## [1] 90

Moda

sort (table(promedios),decresing = FALSE)

## promedios
##  81  82  83  84  85  86  87  89  92  93  94  95  96  97  98  99 100  88  90  91 
##   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   1   2   2   2

otra manera de sacar moda

mfv(promedios)

## [1] 88 90 91

Media aritmetica

n = length(promedios)
sum(promedios)/n

## [1] 90.3913

media= mean(promedios)
media

## [1] 90.3913