29 lines
1.0 KiB
R
29 lines
1.0 KiB
R
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/analysis/code")
|
|
|
|
datraw <- read.table("results/haum/raw_logfiles_2024-01-18_09-58-52.csv",
|
|
header = TRUE, sep = ";")
|
|
|
|
|
|
# Read data
|
|
|
|
datlogs <- read.table("results/haum/event_logfiles_2024-01-18_09-58-52.csv",
|
|
colClasses = c("character", "character", "POSIXct",
|
|
"POSIXct", "character", "integer",
|
|
"numeric", "character", "character",
|
|
rep("numeric", 3), "character",
|
|
"character", rep("numeric", 11),
|
|
"character", "character"),
|
|
sep = ";", header = TRUE)
|
|
|
|
datlogs <- datlogs[order(datlogs$fileId.start, datlogs$date.start, datlogs$timeMs.start), ]
|
|
|
|
artwork <- "176"
|
|
fileId <- c('2017_06_16-13_49_00.log', '2017_06_16-13_59_00.log')
|
|
path <- 106098
|
|
|
|
datraw[datraw$item == artwork & datraw$fileId %in% fileId, ]
|
|
|
|
datlogs[datlogs$path == path, ]
|
|
|
|
|