Make sex_discrimination version (#52)

Author: mine-cetinkaya-rundel

NEWS.md

@@ -4,6 +4,7 @@
   * `lizard_run` and `lizard_habitat` (thanks Stephen Adolph!)
   * `daycare_fines`, `biontech_adolescents`, `nyc_marathon`, `epa2021`
 * Add tests for some of the new datasets
+* Better terminology: `sex_discrimination`
 
 # openintro 2.1.0
 

R/data-sex_discrimination.R

@@ -0,0 +1,24 @@
+#' Bank manager recommendations based on sex
+#'
+#' Study from the 1970s about whether sex influences hiring recommendations.
+#'
+#' @name sex_discrimination
+#' @docType data
+#' @format A data frame with 48 observations on the following 2 variables.
+#' \describe{
+#'   \item{sex}{a factor with levels \code{female} and \code{male}}
+#'   \item{decision}{a factor with levels \code{not promoted} and \code{promoted}}
+#'   }
+#' @source Rosen B and Jerdee T. 1974. Influence of sex role stereotypes on
+#' personnel decisions. Journal of Applied Psychology 59(1):9-14.
+#' @keywords datasets
+#' @examples
+#'
+#' library(ggplot2)
+#'
+#' table(sex_discrimination)
+#'
+#' ggplot(sex_discrimination, aes(y = sex, fill = decision)) +
+#'   geom_bar(position = "fill")
+#'
+"sex_discrimination"

data-raw/sex_discrimination/sex_discrimination-dataprep.R

@@ -0,0 +1,13 @@
+# Load previous version of openintro package containing previous version
+# of evals data frame. I took the last commit on 2021-05-18:
+# remotes::install_github("https://github.com/OpenIntroStat/openintro@fdc9ae408d53d9f2efe4c62c85a956a49346e64d", force = TRUE)
+library(openintro)
+library(tidyverse)
+library(usethis)
+
+# Make categorical variables factor
+sex_discrimination <- openintro::gender_discrimination %>%
+  rename(sex = gender)
+
+# Add to package
+use_data(sex_discrimination, overwrite = TRUE)

data/sex_discrimination.rda

@@ -194,6 +194,7 @@ reference:
   - satgpa
   - scotus_healthcare
   - seattlepets
+  - sex_discrimination
   - sinusitis
   - sleep_deprivation
   - smallpox