How do you use R to simulate the experiment of tossing a fair coin four times and to compute the theoretical probabilities with sum()? Then, how do you use R to to replicate the experiment above 10 times using replicate() and sum()? What is the probability of getting 3 heads out of 10 experiments from the previous question?