Dean’s dilemma ( Study continued )

“A Dean’s Dilemma: Selection of Students for the MBA Program”

TASK 3d

Reading the dataset

deandata<-read.csv(paste("Data - Deans Dilemma.csv",sep=""))
View(deandata)
placed <- deandata[ which(deandata$Placement_B=='1'), ]
View(placed)

part 1

to write an R code that creates a table showing the mean salary of males and females, who were placed

library(lattice)
seg.agg<-aggregate(Salary ~ Gender, data=placed,mean)
seg.agg

##   Gender   Salary
## 1      F 253068.0
## 2      M 284241.9

part 2

What is the average salary of male MBAs who were placed?

library(lattice)
seg.agg<-aggregate(Salary ~ Gender.B=='0', data=placed,mean)
seg.agg

##   Gender.B == "0"   Salary
## 1           FALSE 253068.0
## 2            TRUE 284241.9

The average salary of male placed members is 284241.9

part 3

What is the average salary of female MBAs who were placed?

library(lattice)
seg.agg<-aggregate(Salary ~ Gender.B=='1', data=placed,mean)
seg.agg

##   Gender.B == "1"   Salary
## 1           FALSE 284241.9
## 2            TRUE 253068.0

The average salary of female placed members is 253068.0

part 4

R code to run a t-test for the Hypothesis “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

part 5

What is the p-value based on the t-test?

The p-value is 0.00234

part 6

interpret the meaning of the t-test, as applied to the average salaries of male and female MBAs.

The p-value is 0.00234<0.05. We have sufficient evidence to reject the null hypothesis. Therefore, we conclude that there is significant difference between the female and male average salaries.