Assignment 2.1

data <- read.csv(“dummy-dataset.csv”) # increase limit of max.print so that it captures all the data options(max.print = 40000) print(data) # analysing the dataset summary(data) print(is.data.frame(data)) print(ncol(data)) print(nrow(data)) # histgram of Total Relevant Experience hist(data\(TRE,col='red',border='white',xlab='Years of Experience',ylab='No.of Employees',main='Histogram of Total Relevant Experience') # boxplot of salary boxplot(data\)Salary,main=“Boxplot of Salary”,ylab=“Salary”,col=“orange”) # boxplot of Salary Band wise in one plot boxplot(Salary ~ Band, data = data,main = “Salary Band Wise”,xlab = “Band”,ylab = “Salary”,col=“brown”) #adding computed column SalPerTRE to dataframe data\(SalPerTRE=data\)Salary/data\(TRE data\)SalPerTRE # boxplot of SalPerTRE Band wise in one plot boxplot(SalPerTRE ~ Band, data = data,main = “Salary per Total Relevant Experience Band Wise”,xlab = “Band”,ylab = “Salary Per Total Relevant Experience”,col=“light blue”) # ttest to check whether the mean salary at Band B1 is 5L data_B1=data\(Salary[data\)Band==“B1”] t.test(data_B1, mu = 5)