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

```{r}

# Dit programma maakt kansmodellen bij EEN STEEKPROEF VAN GROOTTE TWEE die
# getrokken is uit een DISCRETE populatie bepaald door "pop_waarde" en "pop_kans"
# Vul hieronder de populatie in: (getallen gescheiden door komma's)

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

# Met "kansmod" geef je aan welk kansmodel je wil zien:
# kansmod <- 1  het kansmodel van de populatie
# kansmod <- 2  het kansmodel van de steekproef van grootte twee
# kansmod <- 3  het kansmodel van de steekproef + gemiddelden of proporties
# kansmod <- 4  het kansmodel van steekproefgemiddelde of steekproefproportie

kansmod <- 2

# Je kan ook aangeven hoeveel decimalen je wil zien (1 - 6). Pas hieronder aan:

dec <- 4


# 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.html" een 
## andere HTML-naam naar keuze geeft, zoals "uwnaam-oef123.html"


source("lib/stkp.R")
stkp(pop_waarde,pop_kans,kansmod,dec)
```
