### -----------------------------------------------------------------------
### Autor: Paul Fink, et. al. (Stand: SoSe 2017)
### -----------------------------------------------------------------------


## ----discretize----------------------------------------------------------
x <- c(1.3, 1.5, 2.5, 3.8, 4.1, 5.9, 7.1, 8.4, 9.0)
xdiscrete <- cut(x, breaks = c(-Inf, 2, 5, 8, Inf))
is.factor(xdiscrete)
xdiscrete
table(xdiscrete)

## ----set-seed------------------------------------------------------------
set.seed(12345)
rnorm(n = 2)
rnorm(n = 2)
set.seed(12345)
rnorm(n = 2)

## ----dnorm---------------------------------------------------------------
dnorm(x = 0)

## ----dnorm3--------------------------------------------------------------
1 / sqrt(2 * pi)

## ----pnorm---------------------------------------------------------------
pnorm(q = 0)
pnorm(q = 1.96)

## ----qnorm---------------------------------------------------------------
qnorm(p = 0.95)

## ----rnorm---------------------------------------------------------------
X <- rnorm(n = 5)
X

## ----sample-unif---------------------------------------------------------
sample(x = c(1, 2, 3, 4, 5), size = 10, replace = TRUE)

## ----sample-custom-------------------------------------------------------
zmzv <- sample(x = c(1, 2, 3, 4, 5), size = 1000, replace = TRUE,
               prob = c(0.1, 0.1, 0.4, 0.3, 0.1))
table(zmzv)