1 Section 1

Text with embedded R code.

mean(rnorm(10))
## [1] 0.02368932
head(cars)
speed dist
4 2
4 10
7 4
7 22
8 16
9 10

1.1 Output

1.1.1 Figure

We can include a figure

library(tidyverse)
data.frame(x=rnorm(1000)) %>%
ggplot(aes(x=x)) + geom_density()
Gaussian density.

Gaussian density.

1.1.2 Table

library(knitr)
kable(summary(cars), caption='Summary of the cars data set')
Summary of the cars data set
speed dist
Min. : 4.0 Min. : 2.00
1st Qu.:12.0 1st Qu.: 26.00
Median :15.0 Median : 36.00
Mean :15.4 Mean : 42.98
3rd Qu.:19.0 3rd Qu.: 56.00
Max. :25.0 Max. :120.00