nwickelmaier/mtt_haum
nwickelmaier
/
mtt_haum
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed some stuff on slides

This commit is contained in:
Nora Wickelmaier 2023-06-27 10:06:14 +02:00
parent c6076f3d34
commit fdb6c94b25
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
code/03_specs.R
View File

@ -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!