Deans Dilemma Case

author: Shikhar Kohli (PGP32117) date: 03.10.2017 autosize: true

Question 1: Median salary of all students

deansdilemma.df <- read.csv(paste("datasets/DeansDilemmaData.csv", sep=""))
placed <- subset(deansdilemma.df, Placement == "Placed")
median(deansdilemma.df$Salary)

## [1] 240000

Question 2: What percentage of students were placed?

mytable <- with(deansdilemma.df, table(Placement))
mytable

## Placement
## Not Placed     Placed 
##         79        312

round(prop.table(mytable)[2]*100,2)

## Placed 
##   79.8

Question 3 & 4: Create dataframe ‘placed’ & find median salary

placed <- subset(deansdilemma.df, Placement == "Placed")
median(placed$Salary)

## [1] 260000

Question 5: Create a table showing the mean salary of males and females, who were placed.

placed <- subset(deansdilemma.df, Placement == "Placed")
by(placed$Salary, placed$Gender, median)

## placed$Gender: F
## [1] 240000
## -------------------------------------------------------- 
## placed$Gender: M
## [1] 265000

Question 6: Histogram showing a breakup of the MBA performance of the students who were placed.

placed <- subset(deansdilemma.df, Placement == "Placed")
hist(placed$Percent_MBA, 
     freq=TRUE, 
     breaks=6, 
     xlab="MBA Percentage")