# NOT RUN {
x <- c('Alex', 'Darrell', 'Kale', 'Lee', 'Robin', 'Terry', rep('Robin', 20))
y <- c(rep('female', 6), rep('male', 20))
givenNamesDB = findGivenNames(x)
pred = genderize(x, givenNamesDB)
classificationErrors(labels = y, predictions = pred$gender)
probs = seq(from = 0.5, to = 0.9, by = 0.05)
counts = c(1)
set.seed(23)
genderizeBootstrapError(x = x, y = y,
givenNamesDB = givenNamesDB,
probs = probs, counts = counts,
num_bootstraps = 20,
parallel = TRUE)
# $apparent
# [1] 0.9615385
# $loo_boot
# [1] 0.965812
# $errorRate632plus
# [1] 0.964225
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab