@@ -112,7 +112,7 @@ chisq.test(science_obs, p = p_expected)
```{r}
n_history_categories = 0
-# Count how many times the word science appears in the categories
+# Count how many times the word history appears in the categories
for (c in categories) {
if ("history" %in% c) {
n_history_categories = n_history_categories + 1
