Dean Dillema

setwd("C:\\Users\\Adithya Nataraj\\Downloads")
mba.df<-read.csv(paste("Data - Deans Dilemma.csv", sep=""))

placed.df <- subset(mba.df, mba.df$Placement_B==1 ) 

aggregate(placed.df$Salary, list(gender=placed.df$Gender), mean)

##   gender        x
## 1      F 253068.0
## 2      M 284241.9

Average salary of males who were placed is 284241.9 Average salary of females who were placed is 253068.0

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

## 
##  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

The p-value is 0.00234