Male/Female script in R