dean <-read.csv(paste("Deans Dilemma.csv", sep=""))
View(dean)
placed <- dean[ which(dean$Placement_B== 1), ]
View(placed)
##Question 1 ------------------------------------------------------------------------
agg <-(aggregate(Salary~Gender, data= placed, mean))
agg
## Gender Salary
## 1 F 253068.0
## 2 M 284241.9
## Question2 average salary of male MBAs placed is 284241.9------------------------------------------------------------------------
## Question3 average salary of female MBAs placed is 253068.0------------------------------------------------------------------------
## Question4 Rcode for t-test------------------------------------------------------------------------
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
## Question5 pvalue= 0.00234 ------------------------------------------------------------------------
## Question6 a p-value < 0.05 suggests a significant difference between the means of male and female salaries ------------------------------------------------------------------------