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}