ejercicio5

nombres <- c("oscar","omar","luis","juan","danna")
genero <- c("M","M","M","M","F")
edades <- c(32,25,28,23,9)

lista <- list(nombres, genero, edades)
lista

## [[1]]
## [1] "oscar" "omar"  "luis"  "juan"  "danna"
## 
## [[2]]
## [1] "M" "M" "M" "M" "F"
## 
## [[3]]
## [1] 32 25 28 23  9

lista[1]

## [[1]]
## [1] "oscar" "omar"  "luis"  "juan"  "danna"

lista[2]

## [[1]]
## [1] "M" "M" "M" "M" "F"

lista[3]

## [[1]]
## [1] 32 25 28 23  9

nuevaLista <- as.vector(lista[2]) #casting
lista

## [[1]]
## [1] "oscar" "omar"  "luis"  "juan"  "danna"
## 
## [[2]]
## [1] "M" "M" "M" "M" "F"
## 
## [[3]]
## [1] 32 25 28 23  9

nuevaLista

## [[1]]
## [1] "M" "M" "M" "M" "F"