# Central Limit Theorem A nice illustration of the Central Limit…

**Isomorphismes**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

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.)

**leave a comment**for the author, please follow the link and comment on their blog:

**Isomorphismes**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

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