From 8487569a5d2dda0fb372fb8b6ae8806016203d83 Mon Sep 17 00:00:00 2001
From: Ben Domingue <ben.domingue@gmail.com>
Date: Sat, 7 Dec 2024 09:24:28 -0800
Subject: [PATCH] rt

---
 preprint_src/02_responsetime.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/preprint_src/02_responsetime.R b/preprint_src/02_responsetime.R
index e58d11b..9f31f53 100644
--- a/preprint_src/02_responsetime.R
+++ b/preprint_src/02_responsetime.R
@@ -75,9 +75,10 @@ proc <- function(table) {
 
 # Apply the 'proc' function to each table containing 'rt' and store the results in 'dens'
 dens <- lapply(rt_data, proc)
+##save(dens,file="/tmp/dens.Rdata")
 
 # Create a PDF file to save the Q-Q plots
-pdf("~/Dropbox/Apps/Overleaf/IRW/rt.pdf", width = 3, height = 3)
+pdf("~/Dropbox/Apps/Overleaf/IRW/rt.pdf", width = 3, height = 2.2)
 
 # Set color with transparency for the lines to be plotted
 cc <- col2rgb("red")