how to code into R

21. In a test of Murphy's law, pieces of toast were buttered on one side and then dropped. Murphy's law predicts that they will land butter-side down. Out of 9821 slices of toast dropped, 6101 landed butter-side down. (Believe it or not, these are real data!) a. What is a 95% confidence interval for the probability of a piece of toast landing butter-side down? b. Using the results of part (a), is it plausible that there is a 50:50 chance of the toast landing butter-side down or butter-side up