Commit 4bcfa1f3 authored by Lennart Wittkuhn's avatar Lennart Wittkuhn
Browse files

minor changes

parent 8c7b9032
......@@ -5,3 +5,4 @@
code/libs
code/*.html
figures
code/*_files
......@@ -746,7 +746,7 @@ anova(lme_rep_behav_condition)
```
## Figure for the main text
```{r, echo = FALSE}
```{r, echo=FALSE}
plot_grid(fig_behav_odd, fig_seq_speed, fig_behav_rep, ncol = 3,
rel_widths = c(2, 4.5, 2.5), labels = c("d", "e", "f"))
```
......@@ -759,7 +759,7 @@ ggsave(filename = "highspeed_plot_behavior_horizontal.pdf",
## Figure for the supplementary information:
```{r, echo = FALSE}
```{r, echo=FALSE}
plot_grid(
plot_grid(
fig_behav_all_outlier, plot_odd_sdt, plot_odd_run,
......@@ -776,18 +776,16 @@ ggsave(filename = "highspeed_plot_behavior_supplement.pdf",
dpi = "retina", width = 8, height = 5)
```
## Sample characteristics
```{r, results = "hold"}
```{r, results="hold"}
# read data table with participant information:
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")])
round(sd(dt_participants$session_interval), digits = 2)
```
......@@ -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),
calc.derivs = FALSE)
lcctrl <- lmerControl(
optimizer = c("bobyqa"), optCtrl = list(maxfun = 500000),
calc.derivs = FALSE)
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