Comandos Básicos

nombre <- c("Persona 1","Persona 2","Persona 3","Persona 4", "Persona 5")
altura <- c( 1.70, 1.72, 1.80, 1.75, 1.99)
peso <- c(50, 70, 80, 100, 340)

# Solucion del Ejercicio 1 
tabla <- data.frame(nombre,altura,peso)
tabla

##      nombre altura peso
## 1 Persona 1   1.70   50
## 2 Persona 2   1.72   70
## 3 Persona 3   1.80   80
## 4 Persona 4   1.75  100
## 5 Persona 5   1.99  340

tabla$imc <- tabla$peso / tabla$altura**2
tabla 

##      nombre altura peso      imc
## 1 Persona 1   1.70   50 17.30104
## 2 Persona 2   1.72   70 23.66144
## 3 Persona 3   1.80   80 24.69136
## 4 Persona 4   1.75  100 32.65306
## 5 Persona 5   1.99  340 85.85642

tabla$clasificacion <- ifelse(tabla$imc<18.5, "Bajo Peso",
                              ifelse(tabla$imc <=24.9, "Normal", 
                                  ifelse(tabla$imc<=29.9,"Sobrepeso","Obesidad")))
                    

# continuacion de vectores 
longitud <- length(peso)
longitud

## [1] 5

orden_ascendente <- sort(tabla$imc)
orden_ascendente

## [1] 17.30104 23.66144 24.69136 32.65306 85.85642

orden_descendente <- sort(tabla$imc, decreasing = TRUE)
orden_descendente

## [1] 85.85642 32.65306 24.69136 23.66144 17.30104

# Graficas 
plot(altura,peso,main="Grafica de Alura y Peso",xlab="altura",ylab="peso")