Set the seed for random number generation to 1. Show and run the R code to estimate the variance of the maximum of random samples of size n=50 from the uniform distribution on the interval [10, 20]. To do this, simulate N=5000 random samples by using replicate() (no for or repeat loop, Otherwise some points will be docked), find the maximum of each sample, and then find the sample variance of these maxima