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

```{r}

# BETROUWBAARHEIDSINTERVAL voor de proportie p van een 0-1 populatie


# n_stkp = steekproefgrootte
n_stkp <- 96

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

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

# 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 <- NULL

# code voor +++SAMENGEVATTE DATA+++ (datatype <- 2)
# succ_stkp = het aantal successen in de steekproef
succ_stkp <- 18

# methode (gebruik aanhalingstekens): "wilson" ofwel "ac_+2/+4"  
 methode <- "ac_+2/+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 "bi_prop.html" een 
## andere HTML-naam naar keuze geeft, zoals "uwnaam-oef123.html"


source("lib/bi_prop.R")
bi_prop(n_stkp,betr_niveau,datatype,mijndatakolom,succ_stkp,methode)
```
