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

```{r}

# BETROUWBAARHEIDSINTERVAL voor het gemiddelde van een populatie
#                (controleer of je de t-verdeling mag gebruiken)

# n_stkp = steekproefgrootte:
n_stkp <- 36

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

# datatype: 1 = ruwe data, 2 = samengevatte data  
datatype <- 1

# code voor +++RUWE DATA+++ (datatype <- 1)
# als de ruwe data in mijndata.xlsx staan in een kolom tussen A en Z
# tik dan die kolomletter (een HOOFDLETTER TUSSEN AANHALINGSTEKENS)
# in mijndatakolom hieronder(en anders tik je daar NULL)
mijndatakolom <- "C"

# code voor +++SAMENGEVATTE DATA+++ (datatype <- 2)
# gem_stkp = het gemiddelde van de steekproefdata
# stafw_stkp = de standaardafwijking van de steekproefdata
# vul in: gem_stkp en stafw_stkp (en anders tik je beide keren NULL)
gem_stkp <- NULL
stafw_stkp <- NULL

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


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


source("lib/bi_gem.R")
bi_gem(n_stkp,betr_niveau,gem_stkp,stafw_stkp,toon)

```
