Ejercicio1

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.

Altura <- c( 1.7, 1.58, 1.84, 1.77, 1.72, 1.57, 1.55, 1.7, 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.

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:

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 >= 18.5 & IMC <= 24.9 

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

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

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

length(NORMAL) / length(IMC)

## [1] 0.8181818

Proporcion <- length(NORMAL) / length(IMC)
Proporcion * 100

## [1] 81.81818

# completo

length(IMC [ IMC >= 18.5 & IMC <= 24.9] / length(IMC))* 100

## [1] 900

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

Hombres <- IMC[Genero == "Hombre"]
Mujeres <- IMC[Genero == "Mujer"]


Hombres

## [1] 23.87543 23.62949 23.93948 26.36560 21.71925

Mujeres

## [1] 22.03173 20.28480 21.22789 25.60554 23.95123 22.15102

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(Altura, Peso)

## [1] 0.9480282