Generate random email address

email <- function(person_name){
  name <- tolower(gsub("\\s+",".", person_name))
  email <- paste("email", name, "@company.com", sep=".")
  return(email)
}

email("liu wen")