.gitignore

@@ -5,3 +5,4 @@
 code/libs
 code/*.html
 figures
+code/*_files

code/highspeed-analysis-behavior.Rmd

@@ -776,8 +776,6 @@ ggsave(filename = "highspeed_plot_behavior_supplement.pdf",
        dpi = "retina", width = 8, height = 5)
 ```
 
-
-
 ## Sample characteristics
 ```{r, results="hold"}
 # read data table with participant information:
@@ -785,9 +783,10 @@ dt_participants <- do.call(rbind, lapply(Sys.glob(path_participants), fread))
 # remove selected participants from the data table:
 dt_participants = dt_participants %>%
   filter(!(participant_id %in% subjects_excluded))
-table(dt_participants$sex)
+base::table(dt_participants$sex)
 round(sd(dt_participants$age), digits = 2)
-summary(dt_participants[c("age", "digit_span", "session_interval")])
+base::summary(
+  dt_participants[, c("age", "digit_span", "session_interval"), with = FALSE])
 round(sd(dt_participants$session_interval), digits = 2)
 ```
 

code/highspeed-analysis-setup.R

@@ -58,5 +58,6 @@ dt_events[, by = .(subject, condition, trial), ":=" (
 # create color list for probabilities of individual sequence events:
 color_events <- rev(hcl.colors(5, "Zissou 1"))
 # define global lmer settings used in all mixed effects lmer models:
-lcctrl <- lmerControl(optimizer = c("bobyqa"), optCtrl = list(maxfun = 500000),
+lcctrl <- lmerControl(
+  optimizer = c("bobyqa"), optCtrl = list(maxfun = 500000),
   calc.derivs = FALSE)