R Output for Discrete Probability Example 1

> money <- c(1, 1, 1, 1000, 1000, 1e+05)

> mean(money)

17000.5

> mean(money + 10000)

27000.5

> mean(10 * money)

170005