4 Body weight of fleas

Last modified on 23. November 2025 at 08:41:10

“A quote.” — Dan Meyer

4.1 General background

4.2 Theoretical background

4.3 R packages used

4.4 Data

4.4.1 Linear

R Code [show / hide]

jump_weight_tbl <- tibble(x = abs(rnorm(21, 3, 4)),
                          y = 10 + 1.2 * x + rnorm(21, 0, 2)) |>
  mutate_all(round, 1) |> 
  rename(weight = x, jumplength = y)

4.4.2 Non-linear

R Code [show / hide]

jump_weight_non_linear_tbl <- tibble(x = abs(rnorm(32, 3, 4)),
                                     y = 0.15*x^3 - 2.2*x^2 + 8.8*x + 3.2 + rnorm(32, 0, 1)) |>
  rename(weight = x, jumplength = y)

4.5 Alternatives

Further tutorials and R packages on XXX

4.6 Glossary

term: what does it mean.

4.7 The meaning of “Models of Reality” in this chapter.

itemize with max. 5-6 words

4.8 Summary

References

```{r echo = FALSE, warning = FALSE}
source("init.R")
```

# Body weight of fleas {#sec-temp}

*Last modified on `r format(fs::file_info("chapter-11-covariate-data.qmd")$modification_time, '%d. %B %Y at %H:%M:%S')`*

> *"A quote." --- Dan Meyer*

## General background

## Theoretical background

## R packages used

## Data

### Linear

```{r}
jump_weight_tbl <- tibble(x = abs(rnorm(21, 3, 4)),
                          y = 10 + 1.2 * x + rnorm(21, 0, 2)) |>
  mutate_all(round, 1) |> 
  rename(weight = x, jumplength = y)
```

```{r}
#| echo: false
#| message: false
#| warning: false
#| label: fig-chap-11-cov-01
#| fig-align: center
#| fig-height: 3.5
#| fig-width: 7
#| fig-cap: "foo **(A)** foo **(B)** foo"

jump_weight_tbl |> 
  ggplot(aes(x = weight, y = jumplength, fill = col_pal(1, 0.5))) +
  theme_book() +
  geom_point(show.legend = FALSE, shape = 21) +
  labs(x = "Cat flea weight [mg]", y = "Jump length in [cm]",
       fill = "Host") +
  scale_fill_viridis(discrete = TRUE, option = "plasma") +
  scale_x_continuous(breaks = 0:10) +
  coord_cartesian(xlim = c(0, NA), ylim = c(0, NA))
```


### Non-linear


```{r}
jump_weight_non_linear_tbl <- tibble(x = abs(rnorm(32, 3, 4)),
                                     y = 0.15*x^3 - 2.2*x^2 + 8.8*x + 3.2 + rnorm(32, 0, 1)) |>
  rename(weight = x, jumplength = y)
```

```{r}
#| echo: false
#| message: false
#| warning: false
#| label: fig-chap-11-cov-04
#| fig-align: center
#| fig-height: 3.5
#| fig-width: 7
#| fig-cap: "foo **(A)** foo **(B)** foo"

jump_weight_non_linear_tbl |> 
  ggplot(aes(x = weight, y = jumplength, fill = col_pal(1, 0.5))) +
  theme_book() +
  geom_point(show.legend = FALSE, shape = 21) +
  labs(x = "Cat flea weight [mg]", y = "Jump length in [cm]",
       fill = "Host") +
  scale_fill_viridis(discrete = TRUE, option = "plasma") +
  scale_x_continuous(breaks = 0:10) +
  coord_cartesian(xlim = c(0, NA), ylim = c(0, NA))
```




## Alternatives 

Further tutorials and R packages on XXX

## Glossary

term

: what does it mean.

## The meaning of "Models of Reality" in this chapter.

- itemize with max. 5-6 words

## Summary

## References {.unnumbered}