blomkvist <- read_csv("data/blomkvist.csv")
glimpse(blomkvist)
Rows: 267
Columns: 10
$ id <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, …
$ sex <chr> "male", "female", "female", "female", "…
$ age <dbl> 84, 37, 62, 85, 73, 65, 30, 49, 83, 58,…
$ medicine <dbl> 8, 1, 0, 4, 5, 0, 0, 0, 11, 0, 0, 4, 3,…
$ meds_cat <chr> "a lot", "little", "none", "few", "a lo…
$ smoker <chr> "former", "no", "yes", "former", "forme…
$ rt_hand_d <dbl> 702, 471, 639, 708, 607, 542, 571, 509,…
$ rt_hand_nd <dbl> 780, 497, 638, 639, 652, 499, 527, 547,…
$ rt_foot_d <dbl> 1009, 738, 878, 902, 923, 687, 778, 743…
$ rt_foot_nd <dbl> 963, 692, 786, 1374, 805, 600, 750, 797…