(2 points) Create a character vector called coin containing two elements 'H' and 'T' (Head and Tail). Set: set . seed(16) Use the sample() function, and a for loop, to generate a randOm sample of size n : 10, 20, ..., 1000 from the coin (you will have to set replace = T ). For each sample, calculate the proportion of heads observed in the sample, and store it in a vector called obs_prop (the vector will be of length 100}. Choose an appropriate function (of base R or of ggplotZ) to plot the vector obs_pr'op and show that, as the sample size increases, the estimated proportion approaches the probability of getting Head, i.e. 0.5