#CURSO DE ESTADISTICA- PRACTICA DIRIGIDA- SESION 1
nombre=c("juan","rocio","manuel", "pedro", "carla", "fresia", "alfredo", "teresa","maria")
partido=c("mundo colorado", "los verdes", "los tibios", "mundo colorado", "los tibios", "los verdes", "los verdes", "los verdes", "losa tibios")
edad=c(45,42,34,41,25,24,30,35,37)
tafilación=c(11,3,2,9,3,2,2,12,7)
sexo=c("m", "f", "m", "m", "f", "f", "m", "f", "f")
nivelEdu=c("secundaria", "bachiller", "bachiller", "bachiller", "bachiller", "bachiller", "magister", "bachiller", "bachiller")
sesion1pd=data.frame(nombre, partido, edad, tafilación, sexo, edad, nivelEdu, stringsAsFactors = F)
sesion1pd## nombre partido edad tafilación sexo edad.1 nivelEdu
## 1 juan mundo colorado 45 11 m 45 secundaria
## 2 rocio los verdes 42 3 f 42 bachiller
## 3 manuel los tibios 34 2 m 34 bachiller
## 4 pedro mundo colorado 41 9 m 41 bachiller
## 5 carla los tibios 25 3 f 25 bachiller
## 6 fresia los verdes 24 2 f 24 bachiller
## 7 alfredo los verdes 30 2 m 30 magister
## 8 teresa los verdes 35 12 f 35 bachiller
## 9 maria losa tibios 37 7 f 37 bachillerel mayor de grupo es:
sesion1pd[sesion1pd$edad==max(sesion1pd$edad),"nombre"]## [1] "juan"el sexo del menor del grupo es:
sesion1pd[sesion1pd$edad==min(sesion1pd$edad), "sexo"]## [1] "f"el partido de fresia
sesion1pd[sesion1pd$nombre=='fresia', "partido"]## [1] "los verdes"el nivel educativo y nombre de la persona con más años
sesion1pd[sesion1pd$tafilación==max(sesion1pd$tafilación),c('nombre','nivelEdu')]## nombre nivelEdu
## 8 teresa bachillerel nombre de las mujeres de los partidos verdes
sesion1pd[sesion1pd$partido=='los verdes'&sesion1pd$sexo=='f', "nombre"]## [1] "rocio" "fresia" "teresa"La edad y nombre de la persona con mayor tiempo de afiliacion en el partido Los Verdes.
sesion1pd[sesion1pd$tafilación==max(sesion1pd$tafilación[sesion1pd$partido=='los verdes']),c("nombre","edad")]## nombre edad
## 8 teresa 35