salaries <- c(55,70,88,92,64,79,85,68,72,60,90,91,100,83,77)
mean_salary <- mean(salaries)
median_salary <- median(salaries)
get_mode <- function(v) {
    uniq_vals <- unique(v)
    uniq_vals[which.max(tabulate(match(v,uniq_vals)))]
}
mode_salary <- get_mode(salaries)

var_salary <- var(salaries)
sd_salary <- sd(salaries)
range_salary <- diff(range(salaries))
iqr_salary <- IQR(salaries)

hist(salaries, main ="Histogram of Employee Salaries", xlab="Salary(in
     thousands)", col ="lightblue")
boxplot(salaries, main ="Boxplot of Employee Salaries" ,ylab="Salary(in
        thousands)",col ="lightgreen")

        class_a<-c(78,82,88,95,80,72,68,85,90,91)
        class_b<-c(65,70,68,72,75,78,80,85,77,82)
mean_a<-mean(class_a)
median_a<-median(class_a)
sd_a<-sd(class_a)
var_a<-var(class_a)
mean_b<-mean(class_b)
median_b<-(class_b)
sd_b<-sd(class_b)
var_b<-var(class_b)
hist(class_a, main="Histogram of Class A Scores", xlab ="Scores",col="orange",
    xlim=c(60,100))
hist(class_b, main="Histogram of Class B Scores", xlab ="Scores",col="blue",
     xlim=c(60,100))

product_x<-c(3,4,4,5,2,4,5,5,4,3,5,5)
product_y<-c(2,3,3,4,2,3,4,3,2,3,4,4)
mean_x<-mean(product_x)
median_x<-median(product_x)
mode_x<-sd(product_x)
sa_x<-sd(product_x)
iqr_x<-IQR(product_x)
mean_y<-mean(product_y)
median_y<-median(product_y)
mode_y<-sd(product_y)
sa_y<-sd(product_y)
iqr_y<-IQR(product_y)

boxplot(product_x,product_y,names=c("Product X","Product Y"),
col=c("red","purple"), main="Boxplot of Customer Satisfaction Scores")