Let's check your answer to question 13. We'll do so via computer simulation (often called a "Monte Carlo" simulation; see the naming history here). For each line of code below, explain what it does, and how it relates to problem 13.

(a) cinnChanges = sample(c(1,1,1,0,0,0,0,0,-1,-1),2, replace = T) (b) netChange = sum(cinnChanges)

(c) manyChanges = replicate(100000, sum(sample(c(1,1,1,0,0,0,0,0,-1,-1),2, replace = T))) (d) result = mean(manyChanges == 0)