##datos de 5 amigos, incluyendo nombre, edad y ciudad.

nombre=c("Olenka","Maylin","Kelita","Xiomara","Ana")
edad=c(30,28,22,24,20)
ciudad=c("piura","ayabaca","tumbes","lima","paita")
Amigos<- data.frame(nombre,edad,ciudad)
Amigos
##    nombre edad  ciudad
## 1  Olenka   30   piura
## 2  Maylin   28 ayabaca
## 3  Kelita   22  tumbes
## 4 Xiomara   24    lima
## 5     Ana   20   paita

##Filtra las personas mayores de 25 años.

subset(Amigos,edad>25)
##   nombre edad  ciudad
## 1 Olenka   30   piura
## 2 Maylin   28 ayabaca

##Agrega una nueva columna con su ocupación.

Amigos$ocupacion <- c("linc.estadistica","linc.educadora","farmaceutica","lin.hotelera","enfermera")
Amigos 
##    nombre edad  ciudad        ocupacion
## 1  Olenka   30   piura linc.estadistica
## 2  Maylin   28 ayabaca   linc.educadora
## 3  Kelita   22  tumbes     farmaceutica
## 4 Xiomara   24    lima     lin.hotelera
## 5     Ana   20   paita        enfermera