fix: csv, echo

This commit is contained in:
eneller
2026-02-01 13:36:00 +01:00
parent 31a2da04fb
commit 05631293be
2 changed files with 4 additions and 4 deletions

View File

@@ -19,13 +19,13 @@
\subsection{Descriptive Statistics}\label{descriptive-statistics} \subsection{Descriptive Statistics}\label{descriptive-statistics}
<<>>= <<echo=FALSE>>=
results <- read.csv("../data/results.csv", sep=",", header=TRUE) results <- read.csv("../data/results.csv", sep=",", header=TRUE)
summary(results[, c("qwerty_ter", "dvorak_ter", "circle_ter")]) summary(results[, c("qwerty_ter", "dvorak_ter", "circle_ter")])
summary(results[, c("qwerty_wpm", "dvorak_wpm", "circle_wpm")]) summary(results[, c("qwerty_wpm", "dvorak_wpm", "circle_wpm")])
@ @
<<>>= <<echo=FALSE>>=
boxplot(results$qwerty_ter, boxplot(results$qwerty_ter,
results$dvorak_ter, results$dvorak_ter,
results$circle_ter, results$circle_ter,
@@ -34,7 +34,7 @@ boxplot(results$qwerty_ter,
main = "Layout of onscreen keyboard") main = "Layout of onscreen keyboard")
@ @
<<>>= <<echo=FALSE>>=
boxplot(results$qwerty_wpm, boxplot(results$qwerty_wpm,
results$dvorak_wpm, results$dvorak_wpm,
results$circle_wpm, results$circle_wpm,