1. Perform the following commands in R set . seed (10) a = sample (1:100, 600, replace = TRUE) (a) (5 points) Find the number of occurrences of 1 in a. (b) (5 points) Find the number of elements in a that are divisible by 3 but not by 4. (c) (5 points) Find the number of even numbers in a. (d) (10 points) Find the summation of the largest ten numbers in a. (e) (10 points) Write a function that prints the mean, minimum, maximum, standard devia- tion, and median for a