name2sex(qcv(mary, jenn, linda, JAME, GABRIEL, OLIVA,
tyler, jamie, JAMES, tyrone, cheryl, drew))
name2sex(qcv(mary, jenn, linda, JAME, GABRIEL, OLIVA,
tyler, jamie, JAMES, tyrone, cheryl, drew), FALSE)
name2sex(qcv(mary, jenn, linda, JAME, GABRIEL, OLIVA,
tyler, jamie, JAMES, tyrone, cheryl, drew), FALSE, TRUE)
name2sex(qcv(mary, jenn, linda, JAME, GABRIEL, OLIVA,
tyler, jamie, JAMES, tyrone, cheryl, drew), TRUE, FALSE)
## Get rank percent frequency ratio of being a gender
library(qdapDictionaries)
orig_nms <- qcv(mary, jenn, linda, JAME, GABRIEL, OLIVA,
tyler, jamie, JAMES, tyrone, cheryl, drew)
sex <- name2sex(orig_nms, FALSE, TRUE)
names(sex) <- rep("", length(sex))
names(sex)[sex == "B"] <- sapply(toupper(orig_nms[sex == "B"]), function(x) {
y <- NAMES[NAMES[, 1] %in% x, ]
round(log(Reduce("/", y[ order(y[, "gender"]), "per.freq"])), 2)
})
## The log ratio of being a female name
sex
orig_nms
data.frame(name = orig_nms, sex = sex, `ratio_F:M` = names(sex),
check.names=FALSE)
Run the code above in your browser using DataLab