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

Prepared slides for next meeting with PG and Co.

Browse Source
This commit is contained in:
Nora Wickelmaier 2023-10-12 16:27:44 +02:00
parent 35ff1430ea
commit 6b1b5767bf
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
code/03_plots_8o8m.R
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?