Session 1 : PRACTICA CALIFICADA

Creando vectores del data frame

nombre =c ("Juan","Rocio","Manuel","Pedro","Carla","Fresia","Alfredo","Teresa","Maria")

colegio=c ("Guadalupe","Pitagoras","Cruz Saco","Carmelitas","Cruz Saco", "Carmelitas","Guadalupe","Cruz Caso","Cruz Saco")

edad=c (17,14,16,10,13,17,15,15,12)

fueradelima=c (1,0,1,0,1,1,0,0,1)

sexo=c ("M","F","M","M","F","F","M","F","F")

tipocole=c("Publico","Privado","Privado","Religioso","Privado","Religioso","Publico","Privado","Privado")

Creando el data frame

alumnos=data.frame(nombre,colegio,edad,fueradelima,sexo,tipocole,stringsAsFactors = F)

alumnos

##    nombre    colegio edad fueradelima sexo  tipocole
## 1    Juan  Guadalupe   17           1    M   Publico
## 2   Rocio  Pitagoras   14           0    F   Privado
## 3  Manuel  Cruz Saco   16           1    M   Privado
## 4   Pedro Carmelitas   10           0    M Religioso
## 5   Carla  Cruz Saco   13           1    F   Privado
## 6  Fresia Carmelitas   17           1    F Religioso
## 7 Alfredo  Guadalupe   15           0    M   Publico
## 8  Teresa  Cruz Caso   15           0    F   Privado
## 9   Maria  Cruz Saco   12           1    F   Privado

Extrayendo colegio publico en alumnos_2

alumnos_2=alumnos[alumnos$tipocole=='Publico',]
alumnos_2

##    nombre   colegio edad fueradelima sexo tipocole
## 1    Juan Guadalupe   17           1    M  Publico
## 7 Alfredo Guadalupe   15           0    M  Publico

1.Edad del más joven que estudia en colegio publico.

alumnos_2[alumnos_2$edad==min(alumnos_2$edad),'edad']

## [1] 15

Extrayendo colegio privado en alumnos_3

alumnos_3=alumnos[alumnos$tipocole=='Privado',]
alumnos_3

##   nombre   colegio edad fueradelima sexo tipocole
## 2  Rocio Pitagoras   14           0    F  Privado
## 3 Manuel Cruz Saco   16           1    M  Privado
## 5  Carla Cruz Saco   13           1    F  Privado
## 8 Teresa Cruz Caso   15           0    F  Privado
## 9  Maria Cruz Saco   12           1    F  Privado

2.Sexo del más viejo que estudia en colegio privado.

alumnos_3[alumnos_3$edad==max(alumnos_3$edad),'sexo']

## [1] "M"

Extrayendo tipocole Cruz Saco

alumnos_4=alumnos[alumnos$colegio=='Cruz Saco',]
alumnos_4

##   nombre   colegio edad fueradelima sexo tipocole
## 3 Manuel Cruz Saco   16           1    M  Privado
## 5  Carla Cruz Saco   13           1    F  Privado
## 9  Maria Cruz Saco   12           1    F  Privado

3.Nombre y Edad de la más joven del Colegio Cruz Saco que nació en Lima.

fueradelima = 1 : si , = 0 : no

alumnos_4[alumnos_4$edad==min(alumnos_4$edad)&alumnos_4$fueradelima==0,'edad']

## numeric(0)