Apply forgotten corrections
Change-Id: Ib50023017a7649222b7ac54873b22f1a17f7d043
diff --git a/lvc_identification.Rmd b/lvc_identification.Rmd
index e9db385..992945e 100644
--- a/lvc_identification.Rmd
+++ b/lvc_identification.Rmd
@@ -1,6 +1,6 @@
---
-title: "Assembling EuReCo for Contrastive Research"
-subtitle: "The Polish Piece"
+title: "Applying the newly extended European Reference Corpus EuReCo"
+subtitle: "Pilot studies of light-verb constructions in German, Romanian, Hungarian and Polish"
author:
- name: Piotr Bański
- name: Nils Diewald
@@ -29,7 +29,7 @@
knitr::opts_chunk$set(dev = 'svg', echo = FALSE, warning = FALSE, message = FALSE)
source("common.R")
```
-# Pilot study: LVC detetction
+# Pilot study: LVC detection
Identification of Light Verb Constructions using collocation analysis.
@@ -88,7 +88,7 @@
addExamples = TRUE
)
```
-```{r dac-ca-result, echo=FALSE, fig.cap = "Collocation analysis of da(wa)?ć + NOUN (=give) in NKJP1M-SGJP using UDPipe2 annotations [@straka_udpipe_2018] and RKorAPClient [@kupietz_rkorapclient_2020]"}
+```{r dac-ca-result, echo=FALSE, fig.cap = "Collocation analysis of da(wa)?ć (=give) + NOUN in NKJP1M-SGJP using UDPipe2 annotations [@straka_udpipe_2018] and RKorAPClient [@kupietz_rkorapclient_2020]"}
dac <- readRDS("dac.rds")
dac %>%
mutate(example=str_replace(example, "(</mark>)(\\W?\\w+)", "\\2\\1")) %>%