Perform the following commands in R

set.seed (10)

x = rnorm (1000, 80, 10)

y = rnorm (1000, 75, 12)

(a) Write a function that plots the histogram and boxplot of a.

(b) Test the hypothesis Ho: ≤75 vs Ha: Hr > 75.

(c) Test the hypothesis Ho Hz ZHy vs Ha: Hz