##Introducci?n a R para 
##Modulo 2
##Video 3

vector_car1 <- "Ciencias"
vector_car2 <- "Sociales"

nchar(vector_car1)
nchar(c(vector_car1, vector_car2))

paste(vector_car1, vector_car2)

paste(vector_car1, vector_car2, sep = "")

tolower(paste(vector_car1, vector_car2))

toupper(paste(vector_car1, vector_car2))

emails <- c("1234@edu.org", "asdf@gmail.com", "xxxx@yahoo.com", "yyyy@uai.cl")
grep(".com", emails) #?grep
gsub("cl", "com", emails) #?gsub
gsub("@.*", "@gmail.com", emails) #?regex