Add full collocation analysis (client side only implementation)
Resolves #2
Change-Id: Ib01d89a72b44ff06816b21532b7ea709a4e837b0
diff --git a/demo/light-verb-construction-ca.R b/demo/light-verb-construction-ca.R
new file mode 100644
index 0000000..c8a323e
--- /dev/null
+++ b/demo/light-verb-construction-ca.R
@@ -0,0 +1,20 @@
+library(RKorAPClient)
+library(knitr)
+new("KorAPConnection", verbose = TRUE) %>%
+ collocationAnalysis(
+ "focus(in [tt/p=NN] {[tt/l=setzen]})",
+ leftContextSize = 1,
+ rightContextSize = 0,
+ exactFrequencies = FALSE,
+ searchHitsSampleLimit = 1000,
+ topCollocatesLimit = 20
+ ) %>%
+ mutate(LVC = sprintf("[in %s setzen](%s)", collocate, webUIRequestUrl)) %>%
+ select(LVC, logDice, pmi, ll) %>%
+ head(10) %>%
+ kable(format="pipe", digits=2) %>%
+ cat(file="/tmp/in_setzen.md", sep="\n")
+
+#rmarkdown::render("/tmp/in_setzen.md")
+#browseURL("/tmp/in_setzen.html")
+