DDdata <- read.csv(“G://IIM Lucknow//Data - Deans Dilemma.csv”) summary(DDdata) library(psych) describe(DDdata) median(DDdata\(Salary, na.rm = TRUE) percentage <-(table(DDdata\)Placement)/length(DDdata\(Placement))*100 round(percentage, digits = 2) placed <- DDdata[ which(DDdata\)Placement==‘Placed’), ] median(placed\(Salary) placed_male <- placed[which(placed\)Gender==‘M’),] placed_female <- placed[which(placed$Gender==‘F’),] Placed_m_f<- data.frame(Salary_female = mean(placed_female\(Salary), Salary_male = mean(placed_male\)Salary)) hist(placed\(Percent_MBA, main = "MBA Performance of Placed Students", xlab = "MBA Percentage", ylab = "Count", breaks = 10, col = "grey", freq = FALSE, xlim = c(50,80), ) np <- DDdata[ which(DDdata\)Placement==‘Not Placed’), ]