Deans.Dilemma <- read.csv(file="Deans Dilemma.csv", header=TRUE, sep=",")
 View(Deans.Dilemma)

Task 3b

Use R to create a table showing the average salary of males and females, who were placed. Review whether there is a gender gap in the data. In other words, observe whether the average salaries of males is higher than the average salaries of females in this dataset.

 placed <- Deans.Dilemma[ which(Deans.Dilemma$Placement_B == 1), ]
 View(placed)
 aggregate(placed$Salary~placed$Gender,data=placed,FUN = mean)
 placed$Gender placed$Salary
1             F      253068.0
2             M      284241.9

Task 3c

Use R to run a t-test to test the following hypothesis: H1: The average salary of the male MBAs is higher than the average salary of female MBAs.

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


    Welch Two Sample t-test

data:  placed$Salary by placed$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

Task 3d

List of questions based on “A Dean’s Dilemma: Selection of Students for the MBA Program”

1)Submit your R code that creates a table showing the mean salary of males and females, who were placed

aggregate(placed$Salary~placed$Gender,data=placed,FUN = mean)
  placed$Gender placed$Salary
1             F      253068.0
2             M      284241.9

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

284241.9

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

253068.0

4.Submit 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(placed$Salary~placed$Gender,data=placed)
Welch Two Sample t-test

data:  placed$Salary by placed$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

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

p-value = 0.00234

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

The null hypothesis is rejected since the p-value < 0.05. Therefore, it is true that the average salary of male MBA’s is higher than the average salary of female MBA’s.