Correcting 'Germany' to 'Denmark'

R/gender.R

@@ -26,7 +26,7 @@
 #'   on an implementation by Cameron Blevins.) The \code{"ipums"} method looks
 #'   up names from the U.S. Census data in the Integrated Public Use Microdata
 #'   Series. (This method was contributed by Ben Schmidt.) The \code{"napp"}
-#'   method uses census microdata from Canada, Great Britain, Germany,
+#'   method uses census microdata from Canada, Great Britain, Denmark,
 #'   Iceland, Norway, and Sweden from 1801 to 1910 created by the
 #'   \href{https://www.nappdata.org/napp/}{North Atlantic Population Project}.
 #'   The
@@ -42,7 +42,7 @@
 #'   \code{"United States"} which will be assumed if no argument is specified.
 #'   For the \code{"napp"} method, you may specify a character vector with any
 #'   of the following countries: \code{"Canada"}, \code{"United Kingdom"},
-#'   \code{"Germany"}, \code{"Iceland"}, \code{"Norway"}, \code{"Sweden"}. For
+#'   \code{"Denmark"}, \code{"Iceland"}, \code{"Norway"}, \code{"Sweden"}. For
 #'   the \code{"kantrowitz"} and \code{"genderize"} methods, no country should
 #'   be specified.
 #' @return Returns a data frame containing the results of predicting the gender.
@@ -72,7 +72,7 @@ gender <- function(names, years = c(1932, 2012),
                    method = c("ssa", "ipums", "napp", "kantrowitz",
                               "genderize", "demo"),
                    countries = c("United States", "Canada", "United Kingdom",
-                                 "Germany", "Iceland", "Norway", "Sweden"))
+                                 "Denmark", "Iceland", "Norway", "Sweden"))
   {
 
   method <- match.arg(method)