case0102: Sex Discrimination in Employment

In Sleuth3: Data Sets from Ramsey and Schafer's "Statistical Sleuth (3rd Ed)"

Description

The data are the beginning salaries for all 32 male and all 61 female skilled, entry–level clerical employees hired by a bank between 1969 and 1977.

Usage

case0102

Format

A data frame with 93 observations on the following 2 variables.

Salary

starting salaries (in US$)

Sex

sex of the clerical employee, with levels "Female" and "Male"

Source

Ramsey, F.L. and Schafer, D.W. (2013). The Statistical Sleuth: A Course in Methods of Data Analysis (3rd ed), Cengage Learning.

References

Roberts, H.V. (1979). Harris Trust and Savings Bank: An Analysis of Employee Compensation, Report 7946, Center for Mathematical Studies in Business and Economics, University of Chicago Graduate School of Business.

See Also

case1202

Examples

attach(case0102)
str(case0102)   

boxplot(Salary ~ Sex, 
  ylab= "Starting Salary (U.S. Dollars)", 
  names=c("61 Females","32 Males"),
  main= "Harris Bank Entry Level Clerical Workers, 1969-1971")

hist(Salary[Sex=="Female"]) 
dev.new()
hist(Salary[Sex=="Male"])

t.test(Salary ~ Sex, var.equal=TRUE) # Equal var. version; 2-sided by default  
t.test(Salary ~ Sex, var.equal=TRUE, 
  alternative = "less")  # 1-sided; that group 1 (females) mean is less 
  
detach(case0102)  

Example output

'data.frame':	93 obs. of  2 variables:
 $ Salary: int  3900 4020 4290 4380 4380 4380 4380 4380 4440 4500 ...
 $ Sex   : Factor w/ 2 levels "Female","Male": 1 1 1 1 1 1 1 1 1 1 ...

	Two Sample t-test

data:  Salary by Sex
t = -6.2926, df = 91, p-value = 1.076e-08
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -1076.2465  -559.7985
sample estimates:
mean in group Female   mean in group Male 
            5138.852             5956.875 


	Two Sample t-test

data:  Salary by Sex
t = -6.2926, df = 91, p-value = 5.378e-09
alternative hypothesis: true difference in means is less than 0
95 percent confidence interval:
      -Inf -601.9965
sample estimates:
mean in group Female   mean in group Male 
            5138.852             5956.875 

Sleuth3 documentation built on May 2, 2019, 6:41 a.m.