diff --git a/R/analyze.R b/R/analyze.R
index a67f472..4570a02 100644
--- a/R/analyze.R
+++ b/R/analyze.R
@@ -141,11 +141,10 @@ bar_plot_fractions <- function(tb,
 #'
 #' @param res List of Tibbles to be analysed.
 #' @param patterns Words to look up.
-#' @param name ?
 #' @param tidy default is FALSE.
 #'
 #' @export
-word_usage_by_date <- function(res, patterns, name, tidy=F) {
+word_usage_by_date <- function(res, patterns, tidy=F) {
     tb <- res$talks
     nms <- names(patterns)
     for (i in seq_along(patterns)) {