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