Fix typo (joining)
Change-Id: I782d9189a67dc12b06a86027cf699a417fcd0ef2
diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 7a83140..a10faf8 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -233,7 +233,7 @@
if (length(snippet) < 1) {
dplyr::tibble(word=c(), frequency=c())
} else if (length(snippet) > 1) {
- log.info(verbose, paste("Joinging", length(snippet), "kwics\n"))
+ log.info(verbose, paste("Joining", length(snippet), "kwics\n"))
for (s in snippet) {
oldTable <- snippet2FreqTable(
s,