library(tidyverse)
library(scales)
load("viz.RData")
glimpse(viz)
#> Rows: 600
#> Columns: 8
#> $ ID <fct> s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1, s1…
#> $ Item <fct> i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i1…
#> $ L1 <fct> English, English, English, English, English, English, Engl…
#> $ Age <int> 21, 18, 40, 31, 35, 50, 38, 38, 27, 24, 26, 32, 38, 42, 42…
#> $ Proficiency <fct> Beg, Beg, Beg, Beg, Beg, Beg, Beg, Beg, Beg, Beg, Beg, Beg…
#> $ Certainty <ord> 1, 4, 4, 1, 2, 3, 3, 1, 1, 3, 3, 1, 2, 3, 2, 2, 2, 2, 1, 3…
#> $ RT <dbl> 2.7625297, 3.1230339, 3.7038581, 9.6426679, 4.6210513, 0.1…
#> $ Response <fct> Correct, Incorrect, Incorrect, Incorrect, Correct, Incorre…