Commit 96b67985 authored by Lennart Wittkuhn's avatar Lennart Wittkuhn
Browse files

set to datatable, see #1

parent f55a0037
......@@ -782,7 +782,8 @@ ggsave(filename = "highspeed_plot_behavior_supplement.pdf",
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))
filter(!(participant_id %in% subjects_excluded)) %>%
setDT(.)
base::table(dt_participants$sex)
round(sd(dt_participants$age), digits = 2)
base::summary(
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment