Ttest-Deansdata

deansd<-read.csv(paste("C:/Users/kogentix/Downloads/Internship docs/week1/Data - Deans Dilemma.csv", sep = ""))

View(deansd)

placed=deansd[which(deansd$Placement_B==1),]

aggregate(placed$Salary,by=list(placed$Gender),mean)

##  Group.1        x
##1       F 253068.0
##2       M 284241.9

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 
##  Welch Two Sample t-test