From 3b518a553a9eeecc7d5d65745f5c606d81c51138 Mon Sep 17 00:00:00 2001
From: nwickel <n.wickelmaier@iwm-tuebingen.de>
Date: Tue, 13 Feb 2024 09:03:35 +0100
Subject: [PATCH] Some script cleaning

---
 code/01_preprocessing.R   |  2 +-
 code/02_descriptives.R    |  2 +-
 code/08_item-clustering.R |  2 +-
 code/09_user-navigation.R | 10 +++++-----
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/code/01_preprocessing.R b/code/01_preprocessing.R
index 0c40a07..3750883 100644
--- a/code/01_preprocessing.R
+++ b/code/01_preprocessing.R
@@ -1,4 +1,4 @@
-# 01_preprocessing_haum.R
+# 01_preprocessing.R
 #
 # content: (1) Parse raw log files
 #          (2) Create event logs
diff --git a/code/02_descriptives.R b/code/02_descriptives.R
index 92e4966..7c54e88 100644
--- a/code/02_descriptives.R
+++ b/code/02_descriptives.R
@@ -1,4 +1,4 @@
-# 00_current_analysis.R
+# 02_descriptives.R
 #
 # content: (1) Read data
 #          (2) Descriptives
diff --git a/code/08_item-clustering.R b/code/08_item-clustering.R
index aab14be..941b61d 100644
--- a/code/08_item-clustering.R
+++ b/code/08_item-clustering.R
@@ -1,4 +1,4 @@
-# 05_item-clustering.R
+# 08_item-clustering.R
 #
 # content: (1) Read data
 #           (1.1) Read log event data
diff --git a/code/09_user-navigation.R b/code/09_user-navigation.R
index e504896..ca206bb 100644
--- a/code/09_user-navigation.R
+++ b/code/09_user-navigation.R
@@ -29,6 +29,7 @@ dat0 <- read.table("results/haum/event_logfiles_2024-01-18_09-58-52.csv",
                                  "character", rep("numeric", 11),
                                  "character", "character"),
                   sep = ";", header = TRUE)
+
 dat0$event <- factor(dat0$event, levels = c("move", "flipCard", "openTopic",
                                           "openPopup"))
 
@@ -55,11 +56,10 @@ datcase$nitems <- aggregate(item ~ case, dat, function(x)
                             length(unique(x)), na.action = NULL)$item
 datcase$npaths <- aggregate(path ~ case, dat, function(x)
                             length(unique(x)), na.action = NULL)$path
-
 # datcase$ntopics <- aggregate(topic ~ case, dat,
-#                              function(x) ifelse(all(is.na(x)), NA, length(unique(na.omit(x)))),
-#                              na.action = NULL)$topic
-#
+#                              function(x) ifelse(all(is.na(x)), NA,
+#                              length(unique(na.omit(x)))), na.action =
+#                              NULL)$topic
 datcase$vacation <- aggregate(vacation ~ case, dat,
                               function(x) ifelse(all(is.na(x)), 0, 1),
                               na.action = NULL)$vacation
@@ -120,7 +120,7 @@ write.table(res,
             quote = FALSE,
             row.names = FALSE)
 
-#--------------- (2) Investigate variants ---------------
+#--------------- (3) Investigate variants ---------------
 
 res$start <- res$date.start
 res$complete <- res$date.stop