#PC 1 DE ESTADISTICA ##DÍAZ ALEGRE, EDUARDO DAVID- 18020145

nombre=c("juan", "rocio", "manuel", "pedro", "carla", "fresia", "alfredo", "teresa", "maria")
colegio=c("guadalupe", "pitagoras", "cruz saco", "carmelitas", "cruz saco", "carmelitas", "guadalupe", "cruz saco", "cruz saco")
edad=c(22,20,19,22,21,18,24,21,23)
fueradelima=c("si", "no", "si", "no", "no", "si", "no", "no", "no")
sexo=c("m", "f", "m", "m", "f", "f", "m", "f", "f")
universidad=c("unmsm", "unfv", "uni","uni","uni","unfv","unmsm", "unmsm", "unmsm")
pc1=data.frame(nombre,colegio,edad,fueradelima,sexo,universidad,stringsAsFactors = F)
pc1

##    nombre    colegio edad fueradelima sexo universidad
## 1    juan  guadalupe   22          si    m       unmsm
## 2   rocio  pitagoras   20          no    f        unfv
## 3  manuel  cruz saco   19          si    m         uni
## 4   pedro carmelitas   22          no    m         uni
## 5   carla  cruz saco   21          no    f         uni
## 6  fresia carmelitas   18          si    f        unfv
## 7 alfredo  guadalupe   24          no    m       unmsm
## 8  teresa  cruz saco   21          no    f       unmsm
## 9   maria  cruz saco   23          no    f       unmsm

edad del más joven (hombre o mujer) no limeño

pc1[pc1$edad==min(pc1$edad[pc1$fueradelima=="no"]),"nombre"]

## [1] "rocio"

sexo del mas joven que este en san marcos y guadalupe

pc1[pc1$edad==min(pc1$edad[pc1$colegio=="guadalupe"&pc1$universidad=="unmsm"]), "sexo"]

## [1] "m" "m"

Nombre del hombre limeño que tenga menos de 21 años

pc1[pc1$edad==min(pc1$edad[pc1$fueradelima=="si"&pc1$sexo=="m"]),"nombre"]

## [1] "manuel"