From 31a2da04fb5033807f925abfd992241e2a30fb56 Mon Sep 17 00:00:00 2001
From: lukasadrion <lukas.adrion@uni-ulm.de>
Date: Sat, 31 Jan 2026 19:23:37 +0100
Subject: [PATCH] add descriptive statistics

---
 .gitignore     |  3 ++-
 doc/report.Rnw | 24 ++++++++++++++++++++++++
 2 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 824f2a7..abc96d0 100644
--- a/.gitignore
+++ b/.gitignore
@@ -42,4 +42,5 @@ testem.log
 Thumbs.db
 
 TextTestExe/
-data/raw
\ No newline at end of file
+data/raw
+.Rproj.user
diff --git a/doc/report.Rnw b/doc/report.Rnw
index 5bc8063..4ba716b 100644
--- a/doc/report.Rnw
+++ b/doc/report.Rnw
@@ -19,6 +19,30 @@
 
 \subsection{Descriptive Statistics}\label{descriptive-statistics}
 
+<<>>=
+results <- read.csv("../data/results.csv", sep=",", header=TRUE)
+summary(results[, c("qwerty_ter", "dvorak_ter", "circle_ter")])
+summary(results[, c("qwerty_wpm", "dvorak_wpm", "circle_wpm")])
+@
+
+<<>>=
+boxplot(results$qwerty_ter,
+        results$dvorak_ter,
+        results$circle_ter,
+        names = c("QWERTY", "DVORAK", "CIRCLE"),
+        ylab = "Total Error Rate (TER)",
+        main = "Layout of onscreen keyboard")
+@
+
+<<>>=
+boxplot(results$qwerty_wpm,
+        results$dvorak_wpm,
+        results$circle_wpm,
+        names = c("QWERTY", "DVORAK", "CIRCLE"),
+        ylab = "Words per minute (WPM)",
+        main = "Layout of onscreen keyboard")
+@
+
 \subsubsection{Objective Measures}\label{objective-measures}
 
 \subsubsection{Subjective Measures}\label{subjective-measures}