Alturas juego

Cargar librerias

library(modeest)

Alturas

Alturas <- c(180, 170, 172, 175, 160, 155, 158, 160, 172, 175)
Alturas2 <- c(170, 172, 173, 175, 178, 168, 160, 169, 168, 174)
Alturas

##  [1] 180 170 172 175 160 155 158 160 172 175

Alturas2

##  [1] 170 172 173 175 178 168 160 169 168 174

Mediana de alturas

me1 <- mean(Alturas)
me1

## [1] 167.7

me2 <- mean(Alturas2)
me2

## [1] 170.7

Varianza

vari = var(Alturas)
vari

## [1] 74.9

vari1 = var(Alturas2)
vari1

## [1] 24.67778

Desviacion de varianza

dsv= sd(Alturas)
dsv

## [1] 8.654479

dsv1= sd(Alturas2)
dsv1

## [1] 4.967673

Coeficiente de variacion

cdv=(dsv/me1)*100
cdv

## [1] 5.160691

cdv1=(dsv1/me2)*100
cdv1

## [1] 2.910178

Interprectacion

¿Cual conjunto de datos tiene mayor Dispersión? El primer conjunto