---
title: "PUFF Undervisningsgang 1"
output: html_document
---


# Opg A3

```{r}
v <- c(2628, 3176, 3421, 2975, 3317, 2729, 2935, 2754)
age <- c(37, 38, 40 ,38, 40, 36, 40, 38)
kon <- c("dreng", "dreng", "dreng", "dreng", "dreng", "pige", "pige", "pige")


```





---
title: "PUFF dag 1"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


# Hent pakker

```{r}
library("tidyverse")
```


# Hent data

```{r}
load(url("http://biostatistics.dk/puff/data/morbarn.rda"))
```


hvis jeg udregner 1 + 2 så får jeg `r 1+2` som resultat



```{r}
mean(c(1, 2, 3, 4, 5))
```



# Den store tabel 1

```{r}
morbarn %>%
    count(ryger) %>% 
    mutate(procent = 100 * n / sum(n))

morbarn %>%
    count(kaffe) %>% 
    mutate(procent = 100 * n / sum(n))


hist( morbarn$alder, col="lightblue" ) 

morbarn %>% 
    mutate(logalder = log(alder),
           logvaegt = log(vaegt)
    )


morbarn %>% 
    summarise(medianalder = median(alder),
              Q1 = quantile(alder, p=0.25),
              Q3 = quantile(alder, p=0.75)
              )


morbarn %>% 
    group_by(kaffe, ryger) %>%  
    summarise(medianalder = median(alder),
              Q1 = quantile(alder, p=0.25),
              Q3 = quantile(alder, p=0.75)
              )


median( morbarn$alder )

hist( morbarn$vaegt )

mean( morbarn$vaegt )
sd( morbarn$vaegt )


morbarn %>% 
    summarise(mean = mean(vaegt),
              sd = sd(vaegt)
              )


```



## Pakken tableone


Der findes også en pakke, `tableone`, som automatiserer selve præsentationen af den store tabel 1. Det kræver dog stadig, at man manuelt undersøge hver variabel for, hvordan den skal præsenteres.


```{r}
library("tableone")

print(CreateTableOne(data=morbarn), nonnormal="alder")
```






