Practica 5

nombres = c("Ana","Barbara","Carlos","Dante","Emilio",
            "Fernando","German","Helio","Iliana","Julio")

edades = sample(20:50,size = 10,replace=TRUE)

generos <-  c("M","M","H","H","H",
              "H","H","H","M","H")

personas <- list(nombres,generos,edades)

personas

## [[1]]
##  [1] "Ana"      "Barbara"  "Carlos"   "Dante"    "Emilio"   "Fernando"
##  [7] "German"   "Helio"    "Iliana"   "Julio"   
## 
## [[2]]
##  [1] "M" "M" "H" "H" "H" "H" "H" "H" "M" "H"
## 
## [[3]]
##  [1] 32 42 37 40 34 39 33 42 34 26

personas[[3]][3]

## [1] 37

personas[[1]][3]

## [1] "Carlos"

personas[[2]][3]

## [1] "H"

personas[3]

## [[1]]
##  [1] 32 42 37 40 34 39 33 42 34 26

is.list(personas[3])

## [1] TRUE

vect = unlist(personas[3])
vect

##  [1] 32 42 37 40 34 39 33 42 34 26

is.vector(vect)

## [1] TRUE