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 <Hy.

Fig: 1