R/give_name.R

give_name<- function(sex="female"){
  possible_names<-sa_names$first_name[sa_names$sex==sex]
  sample(possible_names, size=1)
}
Sulona/iemand documentation built on May 25, 2019, 1:34 p.m.