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

```{r}

# Dit programma werkt met de bivariate data die je gekopieerd hebt naar
# het Excel bestand mijndata.xlsx.

# De veranderlijke in kolom A in Excel heet x en de veranderlijke in kolom B heet y
# Bepaal eerst welke veranderlijke je in deze regressiestudie als respons kiest:
#   respons <- 1 : de x-veranderlijke in kolom A in Excel, neem je als y-respons
#   respons <- 2 : de y-veranderlijke in kolom B in Excel, neem je als y-respons
# pas hieronder de respons aan:

respons <- 2

# pas hieronder je keuze voor de grafiek aan:
#   regr <- 1 : voor een spreidingsdiagram 
#   regr <- 2 : voor een spreidingsdiagram + regressierechte

regr <- 2


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


source("lib/reg.R")
reg(respons,regr, 0 )
```
