27 lines
994 B
R
27 lines
994 B
R
setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/code/")
|
|
|
|
devtools::load_all("../../../../software/mtt")
|
|
#library(mtt)
|
|
|
|
dat <- parse_logfiles("2016", path = "../data/haum/LogFiles/",
|
|
save = FALSE)
|
|
datlogs <- create_eventlogs(dat, "../data/haum/ContentEyevisit/eyevisit_cards_light/")
|
|
|
|
dat001 <- datlogs[which(datlogs$artwork == "001"), ]
|
|
|
|
index <- as.numeric(as.factor(dat001$trace))
|
|
cc <- sample(colors(), length(unique(dat001$trace)))
|
|
|
|
plot(y.start ~ x.start, dat001, type = "n", xlab = "x", ylab = "y",
|
|
xlim = c(0, 3840), ylim = c(0, 2160))
|
|
with(dat001[1:200,], arrows(x.start, y.start, x.stop, y.stop,
|
|
length = .07, col = cc[index]))
|
|
|
|
plot(y.start ~ x.start, dat001, xlab = "x", ylab = "y",
|
|
xlim = c(0, 3840), ylim = c(0, 2160), pch = 16, col = "gray")
|
|
points(y.start ~ x.start, dat001, xlab = "x", ylab = "y",
|
|
xlim = c(0, 3840), ylim = c(0, 2160), cex = dat001$scaleSize,
|
|
col = "blue")
|
|
|
|
|