diff --git a/ccn2019.Rmd b/ccn2019.Rmd
index 20082d3..02322ca 100644
--- a/ccn2019.Rmd
+++ b/ccn2019.Rmd
@@ -191,6 +191,8 @@
 }
 
 NB_modified <- NB %>%
+  #filter(participant=='P4') %>%
+  #filter(participant %in% c('P1','P2','P3','P5'), !is.na(correct)) %>%
   group_by(participant, condition, block) %>%
   mutate(history = with_history(stimulus)) %>%
   #mutate(stimulus_type = map_chr(.x=stimulus, stim_type=stimulus_type, history=history,.f=with_lures))
@@ -208,15 +210,25 @@
 #   View()
 #   
   
+pca=prcomp(NB_modified[,c('t','l','s','u')], center = TRUE,scale. = TRUE)
+
+# rt/accuracy and lures
 # rt/accuracy and lures
 NB_modified %>%
-  #filter(participant %in% c('P1','P2','P3','P5'), !is.na(correct)) %>%
   filter(!is.na(correct)) %>%
-  ggplot(aes(x=jitter(l*t*u*s),rt,color=correct)) +
-    #geom_jitter() +
-    geom_point() +
-    geom_smooth(method="lm",se = F) +
-    facet_wrap(~correct, scales="free")
+  ggplot(aes(jitter(l),rt,color=correct,alpha=0.01)) +
+    geom_jitter() +
+    geom_point(shape=16) +
+    geom_smooth(method="lm",se = F) + 
+  facet_wrap(~condition, scales="free")
+# 
+# NB_modified %>%
+#   mutate(pc1=pca$x[,'PC1'], pc2=pca$x[,'PC2']) %>%
+#   filter(!is.na(correct)) %>%
+#   ggplot(aes(jitter(pc1),jitter(pc2),color=rt)) +
+#     geom_jitter() +
+#     geom_point() +
+#     geom_smooth(method="lm",se = F) #+ facet_wrap(~correct, scales="free")
 
 ```