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)

DatosAlumno

##    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 Saco   15           0    F   Privado
## 9   Maria  Cruz Saco   12           1    F   Privado

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