From 3b518a553a9eeecc7d5d65745f5c606d81c51138 Mon Sep 17 00:00:00 2001 From: nwickel 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