38 lines
1.4 KiB
R
38 lines
1.4 KiB
R
|
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/code")
|
||
|
|
|
||
|
|
dat <- as.data.frame(do.call(rbind, XML::xmlToList("../data/haum/trans.xml")))
|
||
|
|
|
||
|
|
dat$a <- as.numeric(dat$a)
|
||
|
|
dat$b <- as.numeric(dat$b)
|
||
|
|
dat$c <- as.numeric(dat$c)
|
||
|
|
dat$d <- as.numeric(dat$d)
|
||
|
|
dat$tx <- as.numeric(dat$tx)
|
||
|
|
dat$ty <- as.numeric(dat$ty)
|
||
|
|
dat$idx <- sprintf("%03d", as.numeric(dat$idx))
|
||
|
|
|
||
|
|
# --> artwork names are different from names in data set ???
|
||
|
|
|
||
|
|
plot(ty ~ tx, dat, xlim = c(0, 3840), ylim = c(0, 2160))
|
||
|
|
|
||
|
|
|
||
|
|
# read log data
|
||
|
|
datlogs <- read.table("../data/haum/event_logfiles_metadata_2023-09-23_01-31-30.csv",
|
||
|
|
sep = ";", header = TRUE)
|
||
|
|
datlogs$date <- as.Date(datlogs$date)
|
||
|
|
datlogs$date.start <- as.POSIXct(datlogs$date.start)
|
||
|
|
datlogs$date.stop <- as.POSIXct(datlogs$date.stop)
|
||
|
|
datlogs$artwork <- sprintf("%03d", datlogs$artwork)
|
||
|
|
|
||
|
|
datmove <- aggregate(cbind(duration, scaleSize, rotationDegree, x.start,
|
||
|
|
y.start, x.stop, y.stop) ~ artwork, datlogs,
|
||
|
|
mean)
|
||
|
|
|
||
|
|
plot(y.start ~ x.start, datmove, xlab = "x", ylab = "y",
|
||
|
|
xlim = c(0, 3840), ylim = c(0, 2160))
|
||
|
|
points(y.stop ~ x.stop, datmove, xlim = c(0, 3840), ylim = c(0, 2160), col = "blue")
|
||
|
|
points(ty ~ tx, dat, xlim = c(0, 3840), ylim = c(0, 2160), col = "red")
|
||
|
|
legend("topleft", c("start", "stop", "trans"), col = c("black", "blue", "red"), pch = 21)
|
||
|
|
|
||
|
|
# --> does not seem to be a good way to compare if trans values ae valid
|
||
|
|
|