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)
mode =function (v){
    uniq_vals=unique (v)
    uniq_vals [which.max(tabulate(match(v,uniq_vals)))]
}
mode_salary = 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 Salaried", xlab="Salary (in thousands)", col="lightblue")
boxplot(salaries, main="Boxplot of Employee Salaries", ylab="Salary(in thousands)",col = "lightblue")
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=median(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)
sd_x=sd(product_x)
iqr_x= IQR (product_x)
mean_y=mean(product_y)
medin_y=median(product_y)
sd_y=sd(product_y)
iqt_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")