Tras, la entrada de los grandes números, me parecio interesante adornarlo con un ejemplo en R, en muchas ocasiones uso R de forma poco convencional,  y no pretendo dar un curso sobre R, simplemente mostrare un poco como yo lo uso.

Sin mas, vamos a ilustrar el ejemplo, lo que haremos es crear una muestra, usando el comando sample, le pasaremos todos los paremetros, y de esa forma emularemos 100 lanzamientos de moneda, si asignamos los valores 0,1 a cara o cruz, la media de la muestra tendera a 0.5 segun vaya aumentando la muestra el valor se aproximara mas.

mis_tiradas=sample(c(0,1),100,TRUE,c(0.5,0.5))

> mean(mis_tiradas)
[1] 0.47

si aumentamos la muestra a 10000

> mis_tiradas=sample(c(0,1),10000,TRUE,c(0.5,0.5))
> mean(mis_tiradas)
[1] 0.4963

si aumentamos la muestra a 1000000

> mis_tiradas=sample(c(0,1),1000000,TRUE,c(0.5,0.5))
> mean(mis_tiradas)
[1] 0.500252