diff --git a/ccn2019.rev2.Rmd b/ccn2019.rev2.Rmd
index ef37de0..eb989f4 100644
--- a/ccn2019.rev2.Rmd
+++ b/ccn2019.rev2.Rmd
@@ -138,9 +138,12 @@
   })
 }
 
+#TODO change to list column workflow with broom for model fitting and evaluating the fits
+# duh! we are using list nested insided a tibble, so put all new columns in a new list column
+# instead of adding a new column for each.
 NB2 <- NB %>%
-  filter(participant=="P13") %>%
   group_by(participant, condition, block) %>%
+  nest() %>% unnest(data) %>%
   mutate(n = ifelse(condition=='2-back',2,3)) %>%
   mutate(stimulus_type = with_lures(stimulus, stimulus_type, n)) %>%
   mutate(history = with_history(stimulus, window_size)) %>%