Write an R script that does all of the following: a) Create a vector X of length 20, with the kth element in X = 2k, for k=1...20. Print out the values of X. b) Create a vector Y of length 20, with all elements in Y equal to 0. Print out the values of Y. c) Using a for loop, reassigns the value of the k-th element in Y, for k = 1...20. When k 12, the kth element of Y is reassigned as the = k value of integral S* Vidt