diff --git a/doc/.gitignore b/doc/.gitignore
index 1245799..542ea02 100644
--- a/doc/.gitignore
+++ b/doc/.gitignore
@@ -372,3 +372,4 @@ TSWLatexianTemp*
 bib
 # Sweave-specific
 *.tex
+*-SAVE-ERROR
diff --git a/doc/.latexmkrc b/doc/.latexmkrc
new file mode 100644
index 0000000..40baf48
--- /dev/null
+++ b/doc/.latexmkrc
@@ -0,0 +1,29 @@
+@default_files = ('report.Rnw');
+$latex = 'latex  %O  --shell-escape %S';
+$pdflatex = 'pdflatex --shell-escape %S -synctex=1 %O %S';
+$pdf_mode = 1;
+$clean_ext = 'lol nav snm loa bbl* glo ist tex aux bbl blg log out toc Rnw.tex %R-concordance.tex %R.tex';
+$bibtex_use = 2;
+
+# only enable when compiling .Rnw or .Rtex file
+if(grep(/\.(rnw|rtex)$/i, @ARGV)) {
+    $latex = 'internal knitrlatex ' . $latex;
+    $pdflatex = 'internal knitrlatex ' . $pdflatex;
+    my $knitr_compiled = {};
+    sub knitrlatex {
+        for (@_) {
+            next unless -e $_;
+            my $input = $_;
+            next unless $_ =~ s/\.(rnw|rtex)$/.tex/i;
+            my $tex = $_;
+            my $checksum = (fdb_get($input))[-1];
+            if (!$knitr_compiled{$input} || $knitr_compiled{$input} ne $checksum) {
+                my $ret = system("Rscript -e \"knitr::knit('$input')\"");
+                if($ret) { return $ret; }
+                rdb_ensure_file($rule, $tex);
+                $knitr_compiled{$input} = $checksum;
+            }
+        }
+        return system(@_);
+    }
+}
diff --git a/doc/report.Rnw b/doc/report.Rnw
index b1534e3..ba3a781 100644
--- a/doc/report.Rnw
+++ b/doc/report.Rnw
@@ -3,6 +3,18 @@
 \usepackage{graphicx}   % for including figures
 \usepackage{booktabs}   % for nicer tables
 \usepackage{float}
+\usepackage[utf8x]{inputenc}
+\usepackage[margin=1in]{geometry} % Adjust margins
+\usepackage{caption}
+\usepackage{hyperref}
+\PassOptionsToPackage{hyphens}{url} % allow breaking urls
+\usepackage{float}
+\usepackage{wrapfig}
+\usepackage{subcaption}
+\usepackage{parskip}
+
+\usepackage[style=ieee, backend=biber, maxnames=1, minnames=1]{biblatex}
+\addbibresource{report.bib}
 
 \begin{document}
 
@@ -48,10 +60,23 @@ This design allowed us to investigate both established and novel layouts, compar
 
 
 \section{Experiment}\label{experiment}
+<<echo=FALSE, message=FALSE>>=
+# load libraries here
+library(knitr)
+library(dplyr)
+library(tidyr)
 
+# Read the results CSV
+results <- read.csv("../data/results.csv", sep=",", header=TRUE)
+@
 \subsection{Participants}\label{participants}
+Our experiment was conducted using a small sample of 12 participants.
+All of our participants, predominantly male with an average age of \Sexpr{round(mean(results$age),digits=1)}
+were then presented all of our 3 keyboards.
 
 \subsection{Apparatus}\label{apparatus}
+The main body of our experimental apparatus was our On-Screen Keyboard, implemented using Tauri + Angular.
+TextTest \citeauthor{texttest}
 
 \subsection{Procedure}\label{procedure}
 
@@ -62,12 +87,6 @@ This design allowed us to investigate both established and novel layouts, compar
 \subsubsection{Objective Measures}\label{objective-measures}
 
 <<echo=FALSE, message=FALSE>>=
-library(knitr)
-library(dplyr)
-library(tidyr)
-
-# Read the results CSV
-results <- read.csv("../data/results.csv", sep=",", header=TRUE)
 
 ter_stats <- results %>%
   summarise(
@@ -373,4 +392,5 @@ print(posthoc)
 
 \section{Discussion}\label{discussion}
 
+\printbibliography
 \end{document}
diff --git a/doc/report.bib b/doc/report.bib
new file mode 100644
index 0000000..968fae5
--- /dev/null
+++ b/doc/report.bib
@@ -0,0 +1,10 @@
+@article{texttest,
+  title={Analyzing the input stream for character-level errors in unconstrained text entry evaluations},
+  author={Wobbrock, Jacob O and Myers, Brad A},
+  journal={ACM Transactions on Computer-Human Interaction (TOCHI)},
+  volume={13},
+  number={4},
+  pages={458--489},
+  year={2006},
+  publisher={ACM New York, NY, USA}
+}