In 2009 Canada day poll of 1000 Canadian by Angus Reid Strategies, 58% said they were proud of Canadian health care system. Conduct a computer simulation in R to study the sampling distribution of the sample proportion. specifically draw 15000 sample of thi size and set 58% as the true population parameter (proportion of All Canadians who are proud of the health care system)

a) first set the random seed to plus 5 using the following commanda

M= random seed + 5

Set.seed (m)

b) draw 15000 random sample as described above

c) calculate sample proportion for all sample. Save the sample proportion in a vector without printing them out

d) calculate a 90% confidence interval for each sample. Save the intervals in vector without printing them out.

e) print out the 90% confidence interval for each sample computed from the first sample only.

f) check how many intervals have not captures the true population parameter of 58%

g) print out the number of 90% confidence intervals that have not covered the true population parameter