Add CoRoLa-example
Change-Id: Ia7d9aa9b4dffac58b19ea4b90c5e1938b0a1f738
diff --git a/common.R b/common.R
index 7b3fca1..dfb36cf 100644
--- a/common.R
+++ b/common.R
@@ -43,11 +43,10 @@
formatRound(columns=~logDice + pmi + ll, digits=2)
}
-show_simple_table <- function(df) {
+show_simple_table <- function(df, pageLength = 20) {
df %>%
mutate(Collocate=sprintf('<a href="%s">%s</a>', webUIRequestUrl, collocate)) %>%
select(Collocate, logDice, pmi, ll) %>%
- head(50) %>%
- datatable(options = list(pageLength = 20), escape = F) %>%
+ datatable(options = list(pageLength = pageLength), escape = F) %>%
formatRound(columns=~logDice + pmi + ll, digits=2)
}
diff --git a/lvc_identification.Rmd b/lvc_identification.Rmd
index cf61167..a7e4ed8 100644
--- a/lvc_identification.Rmd
+++ b/lvc_identification.Rmd
@@ -29,6 +29,16 @@
knitr::opts_chunk$set(dev = 'svg', echo = FALSE, warning = FALSE)
source("common.R")
```
+# Romanian
+
+## CA in CoRoLa for »pune în NN« (= to put in NN)
+
+```{r pune_in}
+pune_in_ca_de = readRDS("pune_in_CA_de.rds")
+pune_in_ca_de %>% show_simple_table(10)
+```
+
+
# Plain collocation analysis
without restriction to NN/subst
diff --git a/pune_in_CA_de.rds b/pune_in_CA_de.rds
new file mode 100644
index 0000000..843dcf7
--- /dev/null
+++ b/pune_in_CA_de.rds
Binary files differ