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

```{r}

# BETROUWBAARHEIDSINTERVAL voor het gemiddelde van een normale populatie met
#                     een gekende standaardafwijking (theoretisch voorbeeld)

# mu en sigma = ondersteld gemiddelde en gekende standaardafwijking:
mu <- 50
sigma <- 2

# n_stkp = steekproefgrootte:
n_stkp <- 16

# betr_niveau = betrouwbaarheidsniveau (decimale notatie):
betr_niveau <- 0.95

# bi_aantal = aantal intervallen (bij herhaalde steekproeven):
bi_aantal <- 1

# niet alle intervallen moeten genoteerd worden in een tabel:
aantal_noteren_in_tabel <- 10

# toon:  1 = grafiek, 2 = tabel, 3 = 1 & 2
toon <- 3


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


source("lib/bi_theor.R")
bi_theor(mu,sigma,n_stkp,betr_niveau,bi_aantal,aantal_noteren_in_tabel,toon)
```
