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

Fixed some stuff on slides

Browse Source
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) library(lubridate)
dat <- read.table("../data/rawdata_logfiles.csv", header = TRUE, sep = ";") dat <- read.table("../data/rawdata_logfiles.csv", header = TRUE, sep = ";")
dat$event <- factor(dat$event, levels = c("Start Application", # dat$event <- factor(dat$event, levels = c("Start Application",
"Show Application", # "Show Application",
"Transform start", # "Transform start",
"Transform stop", # "Transform stop",
"Show Info", # "Show Info",
"Show Front", # "Show Front",
"Artwork/OpenCard", # "Artwork/OpenCard",
"Artwork/CloseCard", # "Artwork/CloseCard",
"ShowPopup", "HidePopup")) # "ShowPopup", "HidePopup"))
#
#dat$logs <- NULL # do not need original log files #dat$logs <- NULL # do not need original log files
dat$date <- as.POSIXct(dat$date) # create date object 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 ### 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... # 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, 516, 518, 519, 587, 588, 589, 590, 591, 592, 593, 594, 595,
652, 653, 654, 655, 656, 657) 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! tab <- table(diff(dat$date)) # uninformative on raw log data!