Juego

library(modeest)

Crear la muestra de la primera tabla

estaturas1 = c(180, 170, 172, 175, 160, 155, 158, 160, 172, 175)
estaturas1

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

Media

media1 = mean(estaturas1)
media1

## [1] 167.7

Varianza

varianza1 = var(estaturas1)
varianza1

## [1] 74.9

Desviación std

desv1 = sd(estaturas1)
desv1 

## [1] 8.654479

Coeficiente de variación

coef1 = ((desv1/media1)*100)
coef1

## [1] 5.160691

Muestra segunda tabla

Crear la muestra de la segunda tabla

estaturas2 = c(170, 172, 173, 175, 178, 168, 160, 169, 168, 174)
estaturas2

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

Media

media2 = mean(estaturas2)
media2

## [1] 170.7

Varianza

varianza2 = var(estaturas2)
varianza2

## [1] 24.67778

Desviación std

desv2 = sd(estaturas2)
desv2 

## [1] 4.967673

Coeficiente de variación

coef2 = ((desv2/media2)*100)
coef2

## [1] 2.910178

¿Cuál conjunto de datos tiene mayor dispersión?

El primer cojunto es el que tiene mayor dispersión