## Time-stamp: <2013-09-16 14:11 Koistinen Petri P M>

##-------------------------------------------
##
## Esimerkki diskreetin sm:n muunnoksesta
##
##-------------------------------------------

## X:llä on tasajakauma arvoilla 1, 2, 3, 4, 5, 6
## Y = abs(X - 3)


n <- 600000

## n simuloitua arvoa X:n jakaumasta
x <- sample(6, n, replace = TRUE)

table(x) / n

## kohdistetaan simuloituihin arvoihin muunnos abs(x - 3):
y <- abs(x - 3)

table(y) / n


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