diff --git a/articles/dictionary_espn_qbr.html b/articles/dictionary_espn_qbr.html index cc669a1a..e634e41f 100644 --- a/articles/dictionary_espn_qbr.html +++ b/articles/dictionary_espn_qbr.html @@ -116,8 +116,8 @@
vector_numeric <- sample(1:5, 15, TRUE)
vector_numeric
-#> [1] 5 4 4 1 1 4 1 4 3 2 4 4 1 4 5
+#> [1] 1 1 3 5 4 5 4 1 1 2 3 5 1 3 1
stat_mode(vector_numeric)
-#> [1] 4
+#> [1] 1
vector_character <- sample(LETTERS[1:5], 15, TRUE)
vector_character
-#> [1] "B" "D" "A" "C" "C" "D" "A" "D" "A" "B" "A" "A" "C" "B" "E"
+#> [1] "B" "C" "D" "B" "A" "B" "B" "D" "D" "B" "E" "C" "C" "B" "B"
stat_mode(vector_character)
-#> [1] "A"
+#> [1] "B"