This is the other document

Autor

Julia Idzikowska

Table

See this specific code

```{r}
#| label: tbl-mtcars

library(DT)
datatable(mtcars)
```

Tabela 1

Tabela 1 is a table.

Linear model

This is a Linear Model: \[y = /beta_0 +/beta_1 X + /varepsilon\]

See this specific code

ggplot(mtcars, 
       aes(hp, mpg, color = factor(am))) +
  geom_point() +
  geom_smooth(formula = y ~ x, method = "loess") +
  theme(legend.position = 'bottom')

Error in ggplot(mtcars, aes(hp, mpg, color = factor(am))): could not find function "ggplot"

See this specific code

datatable(mtcars,
  options = list(pageLength = 3))

Multiple plots

Rysunek 1 illustrates differents plots. ?@fig-plotsModels-1 stands for a, ?@fig-plotsModels-2 represents b, ?@fig-plotsModels-3 is just simply c and you can find ?@fig-plotsModels-4 as d.

See this specific code

ggplot(mtcars,
       aes(mpg, hp, size = gear)) +
  geom_point()
ggplot(mtcars,
       aes(mpg, hp, size = gear)) +
  geom_point() + 
  geom_smooth()
ggplot(mtcars,
       aes(mpg, hp, size = gear)) +
  geom_point() + 
  geom_smooth(method = "lm")
ggplot(mtcars,
       aes(mpg, hp, size = gear)) +
  geom_point() + 
  geom_smooth(method = "glm", method.args = list(family = "poisson"))

Error in ggplot(mtcars, aes(mpg, hp, size = gear)): could not find function "ggplot"

Error in ggplot(mtcars, aes(mpg, hp, size = gear)): could not find function "ggplot"

Error in ggplot(mtcars, aes(mpg, hp, size = gear)): could not find function "ggplot"

Error in ggplot(mtcars, aes(mpg, hp, size = gear)): could not find function "ggplot"

Rysunek 1: One dataset, different models

Multiple tables

Tabela 2 present 2 datasets: Tabela 2 (a) is car and Tabela 2 (b) is pressure

See this specific code

```{r}
#| label: tbl-tables
#| tbl-cap: "Datasets"
#| tbl-subcap: 
#|   - "Cars"
#|   - "Pressure"
#| layout-ncol: 2

library(knitr)

kable(head(cars))

kable(head(pressure))
```

Tabela 2: Datasets

(a) Cars

speed	dist
4	2
4	10
7	4
7	22
8	16
9	10

(b) Pressure

temperature	pressure
0	0.0002
20	0.0012
40	0.0060
60	0.0300
80	0.0900
100	0.2700

Annotations

See this specific code

# Line 
1mtcars %>%
2  ggplot( aes(mpg, hp, size = gear)) +
3  geom_point() +
4  geom_smooth(method = "lm")

1: This does that
2: This is that
3: This is something new
4: Pay attention to that

Error in ggplot(., aes(mpg, hp, size = gear)): could not find function "ggplot"

Now I write some text and this code to find the minimum value of something 3.6875

The sample is composed by subjects with this many variable