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

```{r}

# TOETS VAN EEN HYPOTHESE OVER EEN POPULATIEPROPORTIE


# p_nul = waarde van de populatieproportie onder de nulhypothese:
p_nul <- 0.06

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

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

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

# 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)
# prop_stkp = de steekproefproportie in decimale notatie:
# vul in: prop_stkp (en anders tik je NULL)
prop_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_prop.html" een 
## andere HTML-naam naar keuze geeft, zoals "uwnaam-oef123.html"


source("lib/th_prop.R")
th_prop(p_nul,alternatieve,alpha,n_stkp,datatype,mijndatakolom,prop_stkp,toon)
```
