set.seed(1) e<-rnorm(n = 100,mean = 0,sd = 80) x<-seq(1,100,1) y<-10 15*x e Follow the examples in the Panopto Videos to use R to obtain the values requested below. (As always, if you round your answers, make sure you do so correctly and keep at least three decimal places.) (a) The smallest value of y = (b) The largest value of y = (c) The standard deviation of y = (d) The mean of y = (e) The median of y = (f) The correlation between x and y = (g) Using the variable e as data, the p-value for a test of vs. is