R/data-gender_discrimination.R

In OpenIntroStat/openintro: Datasets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' Bank manager recommendations based on gender
#'
#' Study from the 1970s about whether gender influences hiring recommendations.
#'
#'
#' @name gender_discrimination
#' @docType data
#' @format A data frame with 48 observations on the following 2 variables.
#' \describe{
#'   \item{gender}{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(gender_discrimination)
#'
#' ggplot(gender_discrimination, aes(y = gender, fill = decision)) +
#'   geom_bar(position = "fill")
"gender_discrimination"