I'm having trouble performing the following computations in RMarkdown. I'm new to this program and have the R for Everyone book, but still can't get the right output. I would be very grateful if a master could assist.

Suppose you role a die twice in succession, getting X1 and X2. Then divide them, getting Y=X1X2. Thus, Y

is discrete, ranging from a minimum of 1/6 to a maximum of 6.

```
X1 = c(1,2,3,4,5,6)
X2 = c(1,2,3,4,5,6)
Y = c()
for (i in X1) {
for (j in X2) {
Y = c(Y, i/j)
}
}
```

- Find the mean of the Y.
- Simulate 10,000 (or more) iid observations Yi(=Xi1Xi2)

. Draw the graph of successive average (cumulative mean) of these Ys. Discuss your observations.