5.4: 1 Oh dear COH shee

x = rcauchy(500)
summary(x)
##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
## -160.6000   -1.0510    0.0582    0.7360    0.9414  207.2000
m = matrix(rcauchy(5000),nrow=500)
xb = apply(m,1,mean)
summary(xb)
##       Min.    1st Qu.     Median       Mean    3rd Qu.       Max. 
## -175.30000   -1.05300    0.00418   -0.46180    0.96730   59.37000
# This is fun

m = matrix(rcauchy(500000),nrow=500)
xb = apply(m,1,mean)
summary(xb)
##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
## -66.7200  -1.0180  -0.1315   0.5122   0.8775 433.8000