PRACTICA CALIFICADA 1

Estadistica aplicada a las C.C.S.S.

UNMSM

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(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')

DatosAlumno=data.frame(Nombre,
                       Colegio,
                       Edad,
                       FueraDeLima,
                       Sexo,
                       TipoCole,
                       stringsAsFactors = F)

DT::datatable(head(DatosAlumno))

PREGUNTAS

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

DatosAlumno[DatosAlumno$TipoCole=='Publico' & DatosAlumno$Edad==min(DatosAlumno$Edad[DatosAlumno$TipoCole=='Publico']),
"Edad"]

## [1] 15

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

DatosAlumno[DatosAlumno$TipoCole=='Privado' &  DatosAlumno$Edad==max(DatosAlumno$Edad[DatosAlumno$TipoCole=='Privado']),'Sexo']

## [1] "M"

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

DatosAlumno[DatosAlumno$FueraDeLima==0 & DatosAlumno$Colegio=='Cruz Saco' & DatosAlumno$Edad==min(DatosAlumno$Edad[DatosAlumno$FueraDeLima==0 & DatosAlumno$Colegio=='Cruz Saco']),c("Nombre","Edad")]

##   Nombre Edad
## 8 Teresa   15