Example: PTSD Assessment

1 Intro

library(tidyverse)
library(knitr)
library(kableExtra)

df <- data.frame(x = runif(10), y = runif(10))

df |> 
  ggplot(aes(x = x, y = y)) + geom_point()

Figure 1: Test caption

And a table

df |> 
  kable(digits = 2)  |> 
  kable_styling(
    full_width = FALSE,           # <- stops spanning the full page
    position   = "center",
    bootstrap_options = c("striped","hover","condensed"))

Table 1

x	y
0.71	0.15
0.66	0.83
0.89	0.83
0.57	0.69
0.10	0.91
0.73	0.74
0.12	0.39
0.71	0.62
0.93	0.60
0.19	0.02