Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

## Central Limit Theorem

A nice illustration of the Central Limit Theorem by convolution.

in R:

Heaviside <- function(x) {      ifelse(x>0,1,0) } HH <- convolve( Heaviside(x), rev(Heaviside(x)),        type = "open"   ) HHHH <- convolve(HH, rev(HH),   type = "open"   ) HHHHHHHH <- convolve(HHHH, rev(HHHH),   type = "open"   ) etc. 

What I really like about this dimostrazione is that it’s not a proof, rather an experiment carried out on a computer.

This empiricism is especially cool since the Bell Curve, 80/20 Rule, etc, have become such a religion.

NERD NOTE:  Which weapon is better, a 1d10 longsword, or a 2d4 oaken staff? Sometimes the damage is written as 1-10 longsword and 2-8 quarterstaff. However, these ranges disregard the greater likelihood of the quarterstaff scoring 4,5,6 damage than 1,2,7,8. The longsword’s distribution 1d10 ~Uniform[1,10], while 2d4 looks like a Λ.

(To see this another way, think of the combinatorics.)