{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)
#Q1 Submit your R code that creates a table showing the mean salary of males and females, who were placed.
male<- placed[ which(placed$Gender.B== 0),] View(male) x <- mean(male$Salary)
female<- placed[ which(placed$Gender.B== 1),] View(female) y <- mean(female$Salary)
284241.9
253068
t.test(Salary ~ Gender.B,Data= placed)
p-value = 0.007577
By t.test we find that Average salary of male who are placed is more than salary of female there fore there is a gender gap.