diff --git a/ccn2019.rev3.Rmd b/ccn2019.rev3.Rmd
index 5266c90..306ff8c 100644
--- a/ccn2019.rev3.Rmd
+++ b/ccn2019.rev3.Rmd
@@ -84,7 +84,7 @@
     number = 5
   )
 
-# Train PLS model (accuracy+)
+# Train PLS model (accuracy)
 model_pls_rt <- train(
   a ~ .-rt-al-correct,
   data = train_data,
@@ -96,6 +96,20 @@
 # Check CV profile
 plot(model_pls_rt)
 
+# Train PLS model (rt)
+train_data_x <- data %>% select(-rt,-a,-correct)
+train_data_y <- (data %>% select(rt))$rt
+
+model_pls_rt <- train(
+  train_data_x,
+  train_data_y,
+  method = "pls",
+  tuneLength = 20,
+  trControl = plsTrControl,
+  preProc = c("center","scale"))
+ 
+# Check CV profile
+plot(model_pls_rt)
 
 
 # training control params for "correct" column