--- title: 'One-sample t-test oefening 1: Effect van glucose in het bloed' output: html_document: code_download: yes highlight: tango number_sections: yes theme: cosmo toc: yes toc_float: yes word_document: toc: yes --- # Effect van glucose in het bloed Men wil de invloed kennen van het toedienen van 100 gram glucose op het glucosegehalte in het bloed bij diabetische patiënten. Daartoe werd van acht diabetische patiënten het glucosegehalte gemeten (in mmol/l), zowel vóór als 1 uur na het toedienen van 100 gram glucose. Onderstaande tabel geeft deze concentraties voor de 8 patiënten weer. Deze gegevens vindt u terug in het bestand `glucose.dat`. Aan de hand van betrouwbaarheidsintervallen en statistische tests proberen we een besluit te formuleren op deze onderzoeksvraag. # R libraries inlezen ```{r} library(ggplot2) library(dplyr) #install.packages("tidyr") library(tidyr) library(readr) ``` # Dataset glucose.dat inlezen Het inlezen van de dataset kan via onderstaand commando met behulp van de weblink waar de data is opgeslagen: ```{r} glucose_basis <- read_delim("https://raw.githubusercontent.com/statOmics/statistiekBasisCursusData/master/practicum2/glucose.dat", delim = "\ ") glucose_basis ``` Deze dataset is momenteel nog niet "tidy", in die zin dat bij tidy data elke observatie (glucose meting) op een aparte lijn zou staan. We kunnen de dataset als volgt "tidy" maken: ```{r} glucose_basis$index <- 1:8 glucose_long <- glucose_basis %>% pivot_longer(cols = c("voor","na"), names_to = "tijdstip", values_to = "meting", names_transform = list(tijdstip = as.factor)) glucose_long ``` De data is nu in "tidy" of ook wel "long" format omgezet.