Revisiting the case: Deans Dilemma

Reading the values from the Data-DeansDilemma.csv file

dean.df <- read.csv(paste("Data-DeansDilemma.csv", sep=""))
attach(dean.df)

table showing the mean salary of males and females, who were placed.

placed <- dean.df[ which(dean.df$Placement=="Placed"), ]
aggregate(placed$Salary,by=list(placed$Gender),mean)

##   Group.1        x
## 1       F 253068.0
## 2       M 284241.9

T-Test for the following hypothesis:

H:The average salary of the male MBAs is higher than the average salary of female MBAs.

t.test(Salary~Gender,data = placed)

## 
##  Welch Two Sample t-test
## 
## data:  Salary by Gender
## t = -3.0757, df = 243.03, p-value = 0.00234
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -51138.42 -11209.22
## sample estimates:
## mean in group F mean in group M 
##        253068.0        284241.9

Interpretations:

The avarage salary of the male students is greater than the female students who got placed.