# Time-stamp: <2012-09-17 13:06 Petri Koistinen>

# Havainnollistetaan diskreetin sm:n muunnosta
n <- 600000
# n simuloitua nopanheittoa
x <- sample(6, n, replace = TRUE)

table(x) / n

y <- abs(x - 2)

table(y) / n