setwd("C:/Users/vaibhav/Desktop/DataSets")
dean.df<-read.csv("DataDeansDilemma.csv")
View(dean.df)
GenderSalary.data<-aggregate(dean.df$Salary,list(dean.df$Gender),mean)
GenderSalary.data

##   Group.1        x
## 1       F 193288.2
## 2       M 231484.8

mean(dean.df$Salary[dean.df$Gender=="M"])

## [1] 231484.8

mean(dean.df$Salary[dean.df$Gender=="F"])

## [1] 193288.2

t.test(Salary~Gender,data=dean.df,var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Salary by Gender
## t = -2.5757, df = 389, p-value = 0.01037
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -67352.803  -9040.516
## sample estimates:
## mean in group F mean in group M 
##        193288.2        231484.8

p-value based on the t-test is 0.01037 The code estimates average Salary of men to be more than female.