Primera práctica calificada de Estadística

Alumna: María del Carmen Urteaga Casas

Ciencia Política – Cuarto semestre

1. Creando el Data Frame

nombre=c("Juan", "Rocío", "Manuel", "Pedro", "Carla", "Fresia", "Alfredo", "Teresa", "María")

colegio=c("Guadalupe", "Pitágoras", "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("público", "privado", "privado", "religioso", "privado", "religioso", "público", "privado", "privado")

2. Armando el Data Frame

coleSpss=data.frame(nombre, colegio, edad, fueradeLima, sexo, tipoCole, stringsAsFactors = F)

Comprobando…

coleSpss

##    nombre    colegio edad fueradeLima sexo  tipoCole
## 1    Juan  Guadalupe   17           1    M   público
## 2   Rocío  Pitágoras   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   público
## 8  Teresa  Cruz Saco   15           0    F   privado
## 9   María  Cruz Saco   12           1    F   privado

Preguntas: a) Edad del más joven que estudia en colegio público

coleSpss[coleSpss$tipoCole=='público' & coleSpss$edad==min(coleSpss$edad), "edad"]

## numeric(0)

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

coleSpss[coleSpss$edad==max(coleSpss$edad) & coleSpss$tipoCole=="privado", "sexo"]

## character(0)

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

coleSpss[coleSpss$colegio=="Cruz Saco" & coleSpss$sexo=="F" & coleSpss$edad==min(coleSpss$edad), c("nombre", "edad")]

## [1] nombre edad  
## <0 rows> (or 0-length row.names)