"genderize"

gistfile1.txt

### Determining (poorly) the sex of a person based on their name.
### Based on this post: http://thedailywtf.com/articles/genderize

genderize <- function(name)
{
  regex <- "(ua|pher|andy|elijah)$"
  
  if (grepl(x=name, pattern=regex, ignore.case=TRUE))
    return("male")
  
  regex <- "(a|i|y|ah|ee|et|ette|elle|fer|ine|lyn|ie|anne|een|en|er|yn|ynn|kim|rachel|lind|pam|sue)$"
  
  if (grepl(x=name, pattern=regex, ignore.case=TRUE))
    return("female")
  
  return("male")
}


genderize("jenny")
# female
genderize("romain")
# male
genderize("hillary")
# female
genderize("hadley")
# female