diff --git a/ccn2019.rev2.Rmd b/ccn2019.rev2.Rmd
index 986ae32..854a4fa 100644
--- a/ccn2019.rev2.Rmd
+++ b/ccn2019.rev2.Rmd
@@ -95,6 +95,7 @@
 }
 
 NB2 <- NB %>%
+  filter(participant=="P13") %>%
   group_by(participant, condition, block) %>%
   mutate(n = ifelse(condition=='2-back',2,3)) %>%
   mutate(stimulus_type = with_lures(stimulus, stimulus_type, n)) %>%
@@ -116,23 +117,23 @@
 any(is.na(NB2))
 NB2 <- na.omit(NB2)
 
-set.seed(100)
-trainingfold <- createMultiFolds(NB2@correct, k = 5, times = 10)
-
-# PLS
-mod1 <- train(correct ~ ., data = NB2[,c("correct","x_sl","x_ul","x_t","x_l")],
- method = "pls",
- metric = "Accuracy",
- tuneLength = 20,
- trControl = trainControl("repeatedcv", index = trainingfold, selectionFunction = "oneSE"),
- preProc = c("zv","center","scale"))
- 
-# Check CV
-plot(mod1)
+# set.seed(100)
+# trainingfold <- createMultiFolds(NB2@correct, k = 5, times = 10)
+# 
+# # PLS
+# mod1 <- train(correct ~ ., data = NB2[,c("correct","x_sl","x_ul","x_t","x_l")],
+#  method = "pls",
+#  metric = "Accuracy",
+#  tuneLength = 20,
+#  trControl = trainControl("repeatedcv", index = trainingfold, selectionFunction = "oneSE"),
+#  preProc = c("zv","center","scale"))
+#  
+# # Check CV
+# plot(mod1)
 
 
-plsR(correct ~ ., data=NB2[,c("correct","x_sl","x_ul","x_t","x_l")])
+plsResult <- plsR(correct ~ ., data=NB2[,c("correct","x_sl","x_ul","x_t","x_l")],3)
 
 
-
+plsResult
 ```
\ No newline at end of file