---
format:
  html:
    embed-resources: true
editor: visual
echo: FALSE
warning: FALSE
editor_options: 
  chunk_output_type: console
---

```{r}

# Dit programma benadert met een staafdiagram (hoogte = relatieve frequentie)
# het kansmodel van het STEEKPROEFGEMIDDELDE of de STEEKPROEFPROPORTIE bij een
# steekproef die getrokken is uit een DISCRETE populatie bepaald door
# "pop_waarde" en "pop_kans". Vul hieronder in (getallen gescheiden door komma's)

pop_waarde <- c(1, 3, 6)
pop_kans <- c(3/6, 2/6, 1/6)

# Vul hieronder de steekproefgrootte in (ten minste gelijk aan 2)
# als je 0 (nul) invult dan krijg je het kansmodel van de populatie:

n_stkp <- 2

# Vul het aantal herhalingen bij de simulatie in (ten minste gelijk aan 1):

sim_aantal <- 100000


# ALS JE KLAAR BENT DRUK JE IN DE BALK HIERBOVEN OP DE RENDER KNOP


## om je resultaat daarna te bewaren ga je op je laptop naar
## de qmd folder waar je het HTML-bestand "stkp_CLT_disc.html" een 
## andere HTML-naam naar keuze geeft, zoals "uwnaam-oef123.html"


source("lib/stkp_CLT_disc.R")
stkp_CLT_disc(pop_waarde,pop_kans,n_stkp,sim_aantal)
```
