sebastiansauer

---
title: "subfigures test"
format: typst
---

Figure test

See @fig-fig1 for a figure with two subfigures.

sebastiansauer

---
title: content conditional visual (html, pdf, epub)
csl: "/Users/sebastiansaueruser/Google Drive/Literatur/refmgt/apa7.csl"

bibliography: /Users/sebastiansaueruser/github-repos/bib/bib.bib

format:
  epub:
    lang: de
  # html:

sebastiansauer

out <- renv::dependencies()

ps <- out$Package %>% unique()
missing <- setdiff(ps, installed.packages()) # can take a long time
missing

install.packages(missing)

sebastiansauer

library(tidyverse)
  data(mtcars)

mtcars %>%
  select(mpg, hp) %>%
  slice_head(n = 5)

sebastiansauer

data(mtcars)
library(dplyr)  # nicht "tidyverse", denn "dplyr" reicht

mtcars %>% 
  filter(am = 0)  # den kürzesten Code, der Ihren Fehler entstehen lässt!

sessionInfo()  # gibt Infos zur R-Version etc. aus

sebastiansauer

library(ggplot2)
source('geom_font_awesome.R')

shapes_map = c(
    setosa = 'car',
    virginica = 'ban',
    versicolor = 'star'
)

(

sebastiansauer

```{r libs, include = FALSE}
library(tidyverse)
```


```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
                      fig.asp = 0.618,

sebastiansauer

```{r libs, include = FALSE}
library(tidyverse)
```


```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
                      fig.asp = 0.618,

sebastiansauer

sebastiansauer

---
title: "Grading BDA WS20"
author: "Sebastian Sauer"
date: "2/5/2021"
output: html_document
---

```{r global-knitr-options, include=FALSE}
knitr::opts_chunk$set(fig.pos = 'H',
                      fig.asp = 0.618,