Please write R code for following picture

## [1] 0.966 (a) Consider the data table below of a study comparing radiation therapy with surgery in treating cancer of the larynx. Calculate the Wald and score CIs for the difference of two proportions. (b) Using the coverage function above, estimate the true confidence levels for both the Wald and score CIs for the difference of two probabilities. (c) Now, keeping 2 fixed, calculate estimated coverage probabilities when 1 = seq(from = 0.05, to-0.95, by = 0.05) for both Wald and score intervals. Create a plot comparing these results, and comment on what you see. Cancer Not Controlled Surgery Radiation Therapy Cancer Controlled 21 15 Fs F6