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

```{r}

# TOETS VAN EEN HYPOTHESE OVER EEN POPULATIEGEMIDDELDE


# mu_nul = waarde van het populatiegemiddelde onder de nulhypothese:
mu_nul <- 31

# voor de alternatieve hypothese vul je 1, 2 of 3 in waarbij
# 1 = "groter dan" , 2 = "kleiner dan" , 3 = "verschillend van":
alternatieve <- 2

# alpha = het significantieniveau in decimale notatie:
alpha <- 0.05

# n_stkp = de grootte van de (geplande) steekproef:
n_stkp <- 40

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

# 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 (en anders tik je NULL)
mijndatakolom <- NULL

# 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: 0 = model zonder data, 1 = figuur, 2 = R_output, 3 = 1 & 2
toon <- 0

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


source("lib/th_gem.R")
th_gem(mu_nul,alternatieve,alpha,n_stkp,datatype,mijndatakolom,gem_stkp,stafw_stkp,toon)
```
