library(microbenchmark)
mb <- microbenchmark(rnorm(1000))
mb
boxplot(mb)

mb2 <- microbenchmark(rnorm(1000), rexp(1000), runif(1000))
boxplot(mb2)
mb2

# V prvom cvičení sme mali príklad zo súťaže o zelené kura, nasledujúci príklad 
# je tiež z tejto súťaže:
  
# Zelené kura stojí na číselnej osi v bode nula a pohybuje sa po celých1 číslach 
# (teda napríklad "3 kroky vľavo" znamenajú posunúť sa na číslo o 3 menšie, 
# ako je to, kde stojí teraz). Hádže pravidelnou mincou. Ak pri k-tom hode 
#  padne hlava, posunie sa o k krokov vpravo. Ak padne znak, posunie sa 
#  o k krokov vľavo. 

# Aká je pravdepodobnosť, že na konci bude znovu v bode nula, ak mincou hádže 
# 2014 krát (súťaž bola v roku 2014)?

kura1 <- function(n){
  poloha <- 0
  for(i in 1:n){
    krok <- sample(c(i, -i), size = 1)
    poloha <- poloha + krok
  }
  return(poloha)
}
kura1(2014)

kura2 <- function(n){
  poloha <- sum((1:n)*sample(c(-1, 1), size = n, replace = TRUE))
  return(poloha)
}
kura2(2014)

mb3 <- microbenchmark(kura1(2014), kura2(2014))
boxplot(mb3)
mb3