Remove all but dac example from Polish section
Change-Id: Icbea63c4f65a4127c08e674fca023ebee026dcbf
diff --git a/lvc_identification.Rmd b/lvc_identification.Rmd
index 30c03f6..d8d7482 100644
--- a/lvc_identification.Rmd
+++ b/lvc_identification.Rmd
@@ -60,60 +60,29 @@
formatRound(columns=~logDice + pmi + ll, digits=1)
```
-# Polish
+## Polish
-## Plain collocation analysis without restriction to NN/subst for da(wa)?ć
-```{r dac_simple, echo=TRUE}
+### da(wa)?ć + NOUN
+
+```{r dac_ca_code, echo=TRUE, results = 'hide'}
+new("KorAPConnection",
+ KorAPUrl = "https://korap.ids-mannheim.de/instance/nkjp1m-sgjp") %>%
collocationAnalysis(
- nkjp,
- '[nkjp/l="da(wa)?ć"]',
- leftContextSize = 5,
- rightContextSize = 5,
- minOccur = 5
- ) %>%
- show_simple_table()
+ 'focus({[nkjp/l="da(wa)?ć"] []{,5}} [ud/p=NOUN])',
+ leftContextSize = 0,
+ rightContextSize = 1, # relative to { ... } in focus(),
+ addExamples = TRUE
+)
```
-
-# Identification of Light Verb Constructions
-using collocation analysis
-
-## da(wa)?ć
-
-```{r dac, echo=TRUE}
+```{r dac_ca_result, echo=FALSE}
collocationAnalysis(
nkjp,
- 'focus({[nkjp/l="da(wa)?ć"] []{,5}} [nkjp/p=subst])',
+ 'focus({[nkjp/l="da(wa)?ć"] []{,5}} [ud/p=NOUN])',
leftContextSize = 0,
rightContextSize = 1, # relative to { ... } in focus(),
- minOccur = 5,
- addExamples = TRUE
- ) %>%
- show_table()
-```
-
-### (Z)robić
-
-```{r robic, echo=TRUE}
-collocationAnalysis(
- nkjp,
- 'focus({[nkjp/l="z?robić"] []{,5}} [nkjp/p=subst])',
- leftContextSize = 0,
- rightContextSize = 1, # relative to { ... } in focus(),
- minOccur = 5,
- addExamples = TRUE
- ) %>%
- show_table()
-```
-
-```{r brac, echo=TRUE}
-collocationAnalysis(
- nkjp,
- 'focus({[nkjp/l="brać" | nkjp/l="wziąć"] []{,5}} [nkjp/p=subst])',
- leftContextSize = 0,
- rightContextSize = 1, # relative to { ... } in focus(),
- minOccur = 5,
addExamples = TRUE
) %>%
mutate(example=str_replace(example, "(</mark>)(\\W?\\w+)", "\\2\\1")) %>%
show_table()
+```