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

# Odotusarvon frekvenssitulkinta nopanheitossa

# Simuloidaan 100000 nopanheittoa
N <- 100000
x <- sample(6, N, replace = TRUE)

table(x)

# Otoskeskiarvo on osapuilleen odotusarvo eli 3.5
mean(x)