chol data

• Load my packages

library(here)
library(tidyverse)

• Import the data

chol = read.csv(here("Data", "chol213_n40.csv"))

• Take the difference in cholesterol levels then look at the data

chol2 = chol %>% mutate(diff = After - Before)
glimpse(chol2)

Rows: 43
Columns: 3
$ Before <int> 195, 145, 205, 159, 244, 166, 250, 236, 192, 224, 238, 197, 169…
$ After  <int> 146, 155, 178, 146, 208, 147, 202, 215, 184, 208, 206, 169, 182…
$ diff   <int> -49, 10, -27, -13, -36, -19, -48, -21, -8, -16, -32, -28, 13, -…

head(chol2, 10)

   Before After diff
1     195   146  -49
2     145   155   10
3     205   178  -27
4     159   146  -13
5     244   208  -36
6     166   147  -19
7     250   202  -48
8     236   215  -21
9     192   184   -8
10    224   208  -16

• Pivot my dataset from wide to long

chol3 = chol2 %>%
  pivot_longer(
    cols = c("Before", "After", "diff"), 
    names_to = "Timepoint", 
    values_to = "Cholesterol"
  )

head(chol3, 15)

# A tibble: 15 × 2
   Timepoint Cholesterol
   <chr>           <int>
 1 Before            195
 2 After             146
 3 diff              -49
 4 Before            145
 5 After             155
 6 diff               10
 7 Before            205
 8 After             178
 9 diff              -27
10 Before            159
11 After             146
12 diff              -13
13 Before            244
14 After             208
15 diff              -36