## Time-stamp: <2013-09-25 15:59 Koistinen Petri P M>

##
## Odotusarvon frekvenssitulkinta nopanheitossa
##

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

table(x)

## Otoskeskiarvo on osapuilleen silmäluvun odotusarvo eli 3.5
mean(x)

## Kahden nopanheiton silmälukujen minimi:

v1 <- sample(6, N, replace = TRUE)
v2 <- sample(6, N, replace = TRUE)
x <- pmin(v1, v2)
## .. ja maksimi
y <- pmax(v1, v2)

v1[1:10]
v2[1:10]
x[1:10]
y[1:10]

## Arvio minimin ptnf:lle
table(x) / N

## Arvio maksimin ptnf:lle
table(y) / N

## Arvio odotusarvolle EX:
mean(x)

## Arvio odotusarvolle EY:
mean(y)


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