ejercicio en clase

Crear un vector para el género de los estudiantes.

genero <- c("hombre", "mujer", "hombre", "hombre", "hombre", "mujer", "mujer", 
            "mujer", "mujer", "mujer", "hombre")

genero

##  [1] "hombre" "mujer"  "hombre" "hombre" "hombre" "mujer"  "mujer"  "mujer" 
##  [9] "mujer"  "mujer"  "hombre"

class(genero)

## [1] "character"

Crear un vector que contenga la altura (aproximada) de los estudiantes.

peso <- c(69, 55, 80, 75, 78, 50, 51, 74, 66, 56, 57)
peso

##  [1] 69 55 80 75 78 50 51 74 66 56 57

class(peso)

## [1] "numeric"

Calcule el Índice de Masa Corporal con la siguiente expresión:

altura <- c(1.70, 1.58, 1.84, 1.77, 1.72, 1.57, 1.55, 1.70, 1.66, 1.59, 1.62)
altura

##  [1] 1.70 1.58 1.84 1.77 1.72 1.57 1.55 1.70 1.66 1.59 1.62

class(altura)

## [1] "numeric"

Crear un vector que contenga el peso (aproximado) de los estudiantes.

imc <- peso / altura^2
imc

##  [1] 23.87543 22.03173 23.62949 23.93948 26.36560 20.28480 21.22789 25.60554
##  [9] 23.95123 22.15102 21.71925

Con R obtenga la proporción de personas que están en el ragno normal (IMC entre 18.5 y 24.9). Fuente: OMS.

imc [imc >= 18.5 & imc <= 24.9]

## [1] 23.87543 22.03173 23.62949 23.93948 20.28480 21.22789 23.95123 22.15102
## [9] 21.71925

imc > 18.5 & imc < 24.9

##  [1]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE

# rango normal

normal <- imc [imc >= 18.5 & imc <= 24.9]
normal

## [1] 23.87543 22.03173 23.62949 23.93948 20.28480 21.22789 23.95123 22.15102
## [9] 21.71925

# proporcion 

length (normal) / length(imc)

## [1] 0.8181818

proporcion <- length(normal) / length(imc)
proporcion * 100

## [1] 81.81818

¿Cuál género presenta mayor IMC promedio?

hombres <- imc[genero == "hombre"]
mujeres <- imc[genero == "mujer"]
mean (hombres)

## [1] 23.90585

mean (mujeres)

## [1] 22.54203

¿Cuál género presenta mayor dispersión en el IMC? ¿Qué gráfico podría representar la variación entre géneros?

sd(hombres)

## [1] 1.651517

sd(mujeres)

## [1] 1.929055

¿Cuál es la correlación entre altura y peso? ¿cómo se interpreta? ¿Qué gráfico podría representar la relación de las dos variables?

cor(peso, altura)

## [1] 0.9480282