# Time-stamp: <2012-09-07 18:02 Petri Koistinen>

# Tämä on R koodia (R-tilasto-ohjelman ymmärtämää koodia)
# Simuloidaan nopanheittoa

# Simuloidaan 24 nopanheittoa
x <- sample(6, 24, replace = TRUE)
x
table(x)

# Kasvatetaan otoskokoa
n <- 6 * 10
x <- sample(6, n, replace = TRUE)
table(x)
# ... frekvenssit voivat poiketa toisistaan aika paljon

n <- 6 * 10000
x <- sample(6, n, replace = TRUE)
table(x)
table(x) / n
# ... suurella otoskoolla *suhteelliset frekvenssit* alkavat olla lähellä
# vastaavia todennäköisyyksiä 1/6 = 0.16666...