## Tämä on R-koodia.
## Time-stamp: <2013-08-28 12:11 Koistinen Petri P M>

##-----------------------------------------------------
##
## Nopanheiton simulointia ---
## esimerkki todennäköisyyden frekvenssitulkinnasta
##
##-----------------------------------------------------

## Simuloidaan 24 nopanheittoa
x <- sample(6, 24, replace = TRUE)
x
table(x)
## ... table(x) näyttää eri tulosten frekvenssit

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

n <- 100000
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...




## Local Variables:
## coding: utf-8
## End: