Practica 4

nombres = c("Ana","Barbara","Carlos","Dante","Emilio",
            "Fernando","German","Helio","Iliana","Julio",
            "Karina","Luis","Manuel","Nubia","Oscar",
            "Pedro","Qatar","Raul","Silvia","Tomas")

edades = sample(17:30,size = 20,replace=TRUE)

nombresEdades <- data.frame(nombres,edades)
names(nombresEdades)<- c("NOMBRES","EDADES")

nombresEdades

##     NOMBRES EDADES
## 1       Ana     25
## 2   Barbara     29
## 3    Carlos     30
## 4     Dante     18
## 5    Emilio     17
## 6  Fernando     24
## 7    German     21
## 8     Helio     28
## 9    Iliana     26
## 10    Julio     23
## 11   Karina     17
## 12     Luis     17
## 13   Manuel     30
## 14    Nubia     20
## 15    Oscar     26
## 16    Pedro     26
## 17    Qatar     23
## 18     Raul     24
## 19   Silvia     29
## 20    Tomas     28

cat("La media es:",mean(edades)," años\nLa edad Maxima es: ",max(edades)," años\nLa edad minima es: ",min(edades)," años")

## La media es: 24.05  años
## La edad Maxima es:  30  años
## La edad minima es:  17  años

cat("\nLa persona de más edad es: ", nombres[which.max( nombresEdades[,2] )],"\nLa persona de menos edad es: ", nombres[which.min( nombresEdades[,2] )])

## 
## La persona de más edad es:  Carlos 
## La persona de menos edad es:  Emilio

barplot(edades, main="Ventas", horiz=TRUE,names.arg=nombres,las=1)