eneller/osk.rs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: csv, echo

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
data/results.csv
View File

@@ -1,3 +1,3 @@
id,age,sequence,qwerty_wpm, qwerty_ter, dvorak_wpm, dvorak_ter, circle_wpm, circle_ter id,age,sequence,qwerty_wpm, qwerty_ter, dvorak_wpm, dvorak_ter, circle_wpm, circle_ter
en, 24, qwerty-dvorak-circle, 21.6, 0.067, 9.0, 0.023, 8.5, 0.017 en, 24, qwerty-dvorak-circle, 21.6, 0.067, 9.0, 0.023, 8.5, 0.017
la, 25, qwerty-circle-dvorak, 18.5, 0.007, 8.8, 0.017, 9.8, 0.022 la, 25, qwerty-circle-dvorak, 18.5, 0.007, 8.8, 0.017, 9.8, 0.022
1 id age sequence qwerty_wpm qwerty_ter dvorak_wpm dvorak_ter circle_wpm circle_ter
2 en 24 qwerty-dvorak-circle 21.6 0.067 9.0 0.023 8.5 0.017
3 la 25 qwerty-circle-dvorak 18.5 0.007 8.8 0.017 9.8 0.022

6
doc/report.Rnw
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,