{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)

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

284241.9

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

253068

Q4 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(Salary ~ Gender.B,Data= placed)

Q5What is the p-value based on the t-test?

p-value = 0.007577

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

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.