R/data-socialexp.R

In openintro: Data Sets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' Social experiment
#'
#' A "social experiment" conducted by a TV program questioned what people do
#' when they see a very obviously bruised woman getting picked on by her
#' boyfriend. On two different occasions at the same restaurant, the same
#' couple was depicted. In one scenario the woman was dressed "provocatively"
#' and in the other scenario the woman was dressed "conservatively". The table
#' below shows how many restaurant diners were present under each scenario, and
#' whether or not they intervened.
#'
#'
#' @name socialexp
#' @docType data
#' @format A data frame with 45 observations on the following 2 variables.
#' \describe{
#'   \item{intervene}{Whether other diners intervened or not.}
#'   \item{scenario}{How the woman was dressed.}
#'   }
#' @keywords datasets
#' @examples
#'
#' table(socialexp)
"socialexp"