# Get first names in a seperate col
az$first_name <- str_split_fixed(az$contbr_nm, ", ", 2)[,2]

# Use gender function
t3 <- gender(as.character(az$first_name), c(1932, 1998),
method = 'ssa',
countries= "United States")

# Assign gender to contributers
az$contb_gender <- t3$gender

# Error message
'''Error in `$<-.data.frame`(`*tmp*`, contb_gen, value = c("male", "male", : replacement has 120187 rows, data has 147703'''