Data 605 - Week 5 Discussion - Chapter 2 Page 72 Q.9

exp <- rexp(100000)
exp <- exp * 10
mean(exp)

## [1] 10.00209

time_100 <- exp[exp > 100]
time_100 <- time_100 - 100
mean(time_100)

## [1] 11.28789

gammas <- rgamma(10000000,5,.5)
mean(gammas)

## [1] 9.999896

time_100 <- gammas[gammas > 20]
time_100 <- time_100 - 20
mean(time_100)

## [1] 2.935736