Prepared slides for next meeting with PG and Co.

This commit is contained in:
Nora Wickelmaier 2023-10-12 16:27:44 +02:00
parent 35ff1430ea
commit 6b1b5767bf

View File

@ -40,9 +40,16 @@ dev.off()
### Dwell times/duration
set.seed(1033)
pdf("../figures/duration_8o8m.pdf", width = 5, height = 5, pointsize = 10)
bwplot(I(duration/1000/60) ~ as.factor(event), datlogs[sample(nrow(datlogs), 100000), ],
ylab = "Duration in min")
pdf("../figures/duration_8o8m.pdf", width = 20, height = 6, pointsize = 10)
bwplot(I(duration/1000/60) ~ as.factor(event) | folder,
datlogs[sample(nrow(datlogs), 100000), ], ylab = "Duration in min")
dev.off()
set.seed(1033)
pdf("../figures/duration_8o8m_artworks.pdf", width = 20, height = 10, pointsize = 10)
bwplot(I(duration/1000/60) ~ as.factor(event) | artwork + folder,
datlogs[sample(nrow(datlogs), 100000), ], ylab = "Duration in min")
dev.off()
### Are there certain areas of the table that are touched most often?