Add Hungarian example hoz
Change-Id: I7a52104ad681620d9929f49f9306f1d1be1027f4
diff --git a/hoz.Rda b/hoz.Rda
new file mode 100644
index 0000000..355f811
--- /dev/null
+++ b/hoz.Rda
Binary files differ
diff --git a/lvc_identification.Rmd b/lvc_identification.Rmd
index 723da71..5391013 100644
--- a/lvc_identification.Rmd
+++ b/lvc_identification.Rmd
@@ -38,12 +38,31 @@
pune_in_ca_de %>% show_simple_table(10)
```
+# Hungarian
-# Plain collocation analysis
+```{r hoz, fig.cap='Collocation analysis for lemma hoz (=bring) with noun in sublative or illative – focus([hnc/p="FN.(SUB|ILL)"] {[hnc/l=hoz]})'}
+hoz1 <- readRDS("hoz.Rda")
+hoz1 %>%
+ mutate(collocation=sprintf('<a href="%s">%s</a>', webUIRequestUrl, example)) %>%
+ select(collocation, EN, logDice, pmi, ll) %>%
+ dplyr::arrange(desc(logDice)) %>%
+ dplyr::rename("LVC example" = "collocation") %>%
+ dplyr::rename("EN (DeepL)" = "EN") %>%
+# head(50) %>%
+ datatable(escape = F,
+ extensions = c('Buttons'),
+ rownames = FALSE,
+ options = list(
+ buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
+ pageLength = 10,
+ dom = ''
+ )) %>%
+ formatRound(columns=~logDice + pmi + ll, digits=1)
+```
-without restriction to NN/subst
+# Polish
-## da(wa)?ć
+## Plain collocation analysis without restriction to NN/subst for da(wa)?ć
```{r dac_simple, echo=TRUE}
collocationAnalysis(