Write function in R. For this problem, use s = 78, 131 as your seed in set.seed, and 100,000 simulations of this experiment. Use the fact that the probability of some event A can be well-approximated by the long-run relative frequency of event A among repeated experiments to estimate the probability that it takes at least 10 tosses before you land the largest numbered die face. This means that the largest die value occurs on the 11th toss or more.