diff --git a/code/03_specs.R b/code/03_specs.R
index 2a0a293..768e40c 100644
--- a/code/03_specs.R
+++ b/code/03_specs.R
@@ -3,16 +3,16 @@
 library(lubridate)
 
 dat <- read.table("../data/rawdata_logfiles.csv", header = TRUE, sep = ";")
-dat$event <- factor(dat$event, levels = c("Start Application", 
-                                          "Show Application",
-                                          "Transform start",
-                                          "Transform stop",
-                                          "Show Info",
-                                          "Show Front",
-                                          "Artwork/OpenCard",
-                                          "Artwork/CloseCard",
-                                          "ShowPopup", "HidePopup"))
-
+# dat$event <- factor(dat$event, levels = c("Start Application",
+#                                           "Show Application",
+#                                           "Transform start",
+#                                           "Transform stop",
+#                                           "Show Info",
+#                                           "Show Front",
+#                                           "Artwork/OpenCard",
+#                                           "Artwork/CloseCard",
+#                                           "ShowPopup", "HidePopup"))
+#
 
 #dat$logs <- NULL                  # do not need original log files
 dat$date <- as.POSIXct(dat$date)  # create date object
@@ -79,7 +79,7 @@ lattice::barchart(counts, auto.key = TRUE)
 
 ### Example for log file in order to show structure
 
-write.table(dat[240:660, 3:12], "set.txt", quote = FALSE)
+write.table(dat[240:660, 3:12], "tmp_set.txt", quote = FALSE)
 # is then edited by hand to have all possible events...
 
 
@@ -91,7 +91,7 @@ select <- c(243, 244, 245, 246, 253, 254, 255, 256, 257, 259, 260, 262,
             516, 518, 519, 587, 588, 589, 590, 591, 592, 593, 594, 595,
             652, 653, 654, 655, 656, 657)
 
-writeLines(dat[select, "logs"], "set_logs.txt")
+writeLines(dat[select, "logs"], "tmp_set_logs.txt")
 
 
 tab <- table(diff(dat$date))    # uninformative on raw log data!