Using childeswordfreq

# Only run if the package is installed
if (requireNamespace("childeswordfreq", quietly = TRUE)) {
  childeswordfreq::word_counts(...)
}

word_file <- system.file("extdata", "word_list.csv", package = "childeswordfreq")
output_file <- tempfile(fileext = ".xlsx")

word_counts(
  word_list_file = word_file,
  output_file = output_file,
  collection = NULL,
  language = "eng",
  age = c(24, 36),
  sex = c("female", "male")
)